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ABSTRACT 


The  results  of  the  Coast  Guard  Research  and  Development  Center's  Operational 
and  Technical  Evaluation  of  the  110-foot  Bell -Hal  ter  SES  are  reported.  The 
testing  included  evaluations  of  deck  area  and  internal  volume,  speed  versus 
power,  fuel  consumption,  towing  capability,  maneuverabil i ty ,  time  to  get 
underway,  and  visibility  from  the  deckhouse.  Moment  to  heel,  motion  in  waves, 
sail  area,  susceptibility  to  slamming,  performance  in  astern  seas,  and 
watertight  integrity  are  also  studied  together  with  hull  vibrations  level, 
handling  pollution  gear,  boom  capability,  and  secondary  variables.  The 
Operational  Evaluation  ( OPE VAL )  covered  the  areas  of  seakeeping 
characteristics ,  habitability,  equipment  arrangement,  mission  support 
capability,  boat  launching,  survivability,  interoperabil ity  and  logistics, 
maintainability  and  anchoring.  Recommendations  for  improving  test  procedures 
and  equipment  have  been  included  as  an  appendix  to  this  report.  Computer 
programs  for  collecting  and  evaluating  the  data  are  also  given.  A  new 
procedure  for  performing  inclining  experiments  is  described. 
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1.0  INTRODUCTION 


The  prototype  110-foot  surface  effect  ship  (SES)  manufactured  by 
Bell -Hal  ter  has  been  purchased  by  the  U.S.  Navy.  Under  an  agreement  with  the 
Navy  the  U.S.  Coast  Guard  was  allowed  to  use  the  vessel  for  an  Operational 
Evaluation  (OPEYAL)  and  Technical  Evaluation  (TECHEVAL)  over  a  6-month  period 
from  June  to  December  1981.  During  this  time  the  SES  was  operated  as  a 
replacement  for  an  82-foot  patrol  boat  (WPB)  and  was  commissioned  as  the  USCGC 
DORADO  (WSES-1 ) . 

The  Coast  Guard  Research  and  Development  Center  (R&DC)  performed  tests  on 
the  vessel  during  two  TECHEVAL  periods,  one  in  August  1981  and  one  in  November 
1981.  This  report  documents  the  results  of  the  Coast  Guard  Research  and 
Development  Center  efforts  during  these  periods.  The  OPEYAL  was  essentially 
conducted  by  the  c~ew  of  the  DORADO.  Their  comments  on  the  multitude  of 
factors  which  must  ue  evaluated  were  collected  through  the  use  of 
questionnaires  during  the  TECHEVALs.  The  DORADO  was  operated  by  Commander, 
Eighth  Coast  Guard  District  (CCGDEIGHT).  All  photographic  support  was  handled 
by  CCGDEIGHT. 

R&DC  performed  this  work  as  part  of  the  Advanced  Marine  Vehicles  and  Ship 
Trials  Program.  This  report  contains  the  results  of  the  TECHEVAL  tests  and 
the  compiled  responses  to  the  questionnaires  used  to  collect  data  for  the 
OPEVAL.  The  testing  included  evaluations  of  deck  area  and  internal  volume, 
speed  versus  power,  fuel  consumption,  towing  capability,  maneuverability,  time 
to  get  underway,  and  visibility  from  the  deckhouse.  Moment  to  heel,  motion  in 
waves,  sail  area,  susceptibility  to  slamming,  performance  in  astern  seas,  and 
watertight  integrity  are  also  studied  together  with  hull  vibrations  level, 
handling  pollution  gear,  boom  capability,  and  sec -ndary  variables.  The  OPEVAL 
covered  the  areas  of  seakeeping  characteristics ,  habitability,  equipment 
arrangement,  mission  support  capability,  boat  launching,  survivability, 
interoperabil ity  and  logistics,  maintainability  and  anchoring.  Recommenda¬ 
tions  for  improving  test  procedures  and  equipment  have  been  included  as  an 
appendix  to  this  report. 
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2.0  DESCRIPTION  OF  THE  SES 


The  USCGC  DORADO  (WSES-1)  is  a  110-foot  SES  manufactured  by  Bell-Halter. 
It  is  a  high  performance,  surface-effect  ship  capable  of  on-cushion  speeds 
approaching  30  knots  with  a  minimum  load  in  calm  water.  The  craft  rides  on  a 
res istance-reducing  cushion  of  air  trapped  between  rigid  sidewalls  and  bow  and 
stern  flexible  seals . 

The  vessel  is  shown  in  profile  in  Figure  1.  Deck  views  are  shown  in 
Figures  2,  3,  and  4.  An  inboard  profile  is  shown  in  Figure  5.  Figure  6  shows 
the  seal  system  used.  Cushion  air  is  supplied  by  centrifugal  fans  to  the 
cushion  through  longitudinal  ducts  to  orifices  aft  of  the  leading  edge  of  the 
bow-fingers,  amidships  through  the  bottom  wet  deck,  and  aft  into  the  stern 
seal  bags. 

The  SES  is  admeasured  under  100  gross  tons  and  has  received  a  U.S.  Coast 
Guard  certificate  of  inspection  for  operation  in  ocean  service.  Principal 
characteristics  of  the  SES  are  given  in  Table  1. 


TABLE  1 

PRINCIPAL  CHARACTERISTICS  OF  1 1 0-F00T  SES 


Dimens  ions 


Length  overall  (LOA) 

109 ' -2" 

Length  between  perpendicul ars  (LBP) 

93' -6" 

Beam  (Max) 

39 '-3" 

Depth 

15' -1 " 

Draft  (Light  Ship)  OFF  CUSHION 

7 '  -0*' 

ON  CUSHION 

Approx. 

3'  -0" 

(Full  Load)  OFF  CUSHION 

8'  -5" 

ON  CUSHION 

Approx. 

4'  -5" 

Freeboard  (Light  Ship)  OFF  CUSHION 

8'-1" 

ON  CUSHION 

Approx . 

1 2 '  - 1 " 

(Full  Load)  OFF  CUSHION 

6' -8" 

ON  CUSHION 

Approx . 

10' -8" 

Radar  antenna  height  (above  full  load  WL 

on  cushion) 

33* -6" 

top 

30' -9" 

btm 

Height  of  eye  on  bridge  ( 5 ' -6”  above  deck 

on  cushion) 

25' -0" 

Minimum  operating  depth 

9 '-5" 

Leading  Particulars 

Displacement  (Light  Ship) 

99.6  L. 

T. 

(Full  Load) 

150.3  L. 

T. 

Crew 

8-14 

2 


Mach  in ery 


Propul sion 


Lift  - 


Generators 


Two  15Y  149TI  Detroit  diesel  marine  engines  (each  1440  SHP 
@  1900  RPM,  180  injectors) 

Two  41.9-inch  diameter  x  50.5-inch  fixed  pitch  propellers. 

Two  8Y  92TI  Detroit  diesel  marine  engines  (each  435  SHP  0 
2100  RPM,  9290  injectors) 

Two  double  width-double  inlet  centrifugal  42-inch  diameter 
fans 

Main  =  55  KW 
Standby  =  40  KW 
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3.0  CONCLUSIONS  AND  RECOMMENDATIONS 


Conclusions  on  each  trial  are  included  in  the  test  results  section  of 
this  report.  The  more  important  of  these  will  be  discussed  here. 

Very  few  modifications  were  required  to  con/ert  the  demonstration  craft 
manufactured  by  3el 1-Halter  into  an  operational  Coast  Guard  cutter.  The  major 
modifications  included  additional  accommodations,  adding  a  towing  bitt,  and 
providing  a  4-meter  AVON  small  boat.  The  110-foot  SE5  performed  very  we  1 1 
during  the  OPEVAL  period  and  experienced  few  serious  problems.  It  was 
generally  praised  by  the  crew  as  a  significant  improvement  over  current  patrol 
boats . 

Several  design  problems  do  exist,  however.  The  most  serious  of  these  are: 

The  hull  was  made  as  light  as  possible  to  reduce  powering  and  lift 
requirements.  In  several  areas,  but  particularly  near  the  after  ballast 
tanks,  hull  cracking  was  a  recurring  problem.  Overall  the  hull  was  of 
adequate  strength  but  in  many  areas  the  strength  was  inadequate. 

During  most  Coast  Guard  operations  the  vessel  operated  at  a  full  load 
displacement  of  150  tons.  Oesign  displacement  is  125  tons.  At  full  load 

displacement  engine  power  was  marginal  to  drive  the  vessel  past  hump 

speed.  This  is  the  speed  at  which  the  vessel  begins  to  exhibit  a  reduced 

power  requirement  with  increasing  speed.  When  towing  and  when  not  at 
optimum  trim  it  was  often  impossible  to  achieve  hump  speed.  The  benefit 
from  getting  over  hump  speed  is  large;  therefore,  sufficient  power  should 
be  installed  to  achieve  this  speed  under  sub-optimal  trim  and  light  tow 
loads  such  as  the  Coast  Guard's  high-speed  delivery  sled. 

Propeller  design  is  another  area  of  concern.  The  original  propellers  had 
severe  cavitation  problems.  The  present  propellers  are  fixed  pitch  and 
operate  near  the  upper  limit  of  performance  for  subcav i tating 
.propellers.  Modifications  to  the  original  propellers  were  made  to  delay 
cavitation.  The  propeller  diameter  was  reduced  by  almost  2  inches  and 
three  (3)  3/3"  diameter  holes  were  drilled  at  the  root  of  each  blade  for 
venting.  After  several  hundred  hours  under  various  loading  conditions, 
the  present  propellers  show  no  signs  of  cavitation.  The  propellers  used 
are  optimized  for  speed.  As  a  result  their  towing  performance  suffers 
cons iderably .  Dual  pitch  or  variable  pitch  propellers  may  offer  improved 
towing  performance  at  a  minimum  loss  of  high-speed  performance. 

Maintenance  requirements  for  the  bow  and  stern  seals  does  not  appear  to 
be  excessive.  However,  a  longer  period  of  operation  is  needed  to 
quantitatively  determine  the  actual  seal  maintenance  requirements . 

The  sail  area  of  the  SES  is  considerably  larger  than  current  patrol 
craft.  This  is  particularly  true  on  cushion.  No  serious  w'ndage  or  side  slip 
problems  were  noted  but  the  high  profile  combined  with  the  spray  from  the 
cushion  makes  the  SES  visible  from  a  greater  distance. 
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In  all  other  areas  studied,  the  SES  performed  as  well  as  or  better  than 
WP3s .  Of  particular  note  are  its  high  speed,  low  fuel  consumption,  and 
excellent  maneuvered  il  i  ty .  The  primary  advantage  an  SES  has  over  a 
displacement  vessel  is  its  significantly  greater  speed  for  the  same  installed 
horsepower.  The  SES  provides  a  roomy  and  very  stable  platform.  Although 
vertical  accelerations  are  a  problem  in  high  seas,  the  SES  is  able  to  operate 
in  much  higher  seas  than  conventional  craft  of  like  size.  Habitability  was  a 
vast  improvement  over  82-foot  WPBs.  Mo  problems  were  experienced  in  operating 
the  DORADO  with  other  Coast  Guard  units. 

In  summary,  the  surface-effect  ship  concept  appears  to  be  a  strong 
contender  as  a  possible  replacement  for  current  cutters.  Further  studies 
should  be  performed  to  determine  the  optimum  power  and  propeller 
character  is  ti  cs  . 
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4.0  TEST  RESULTS 


4.1  Deck  Area  and  Internal  Vo  luma 


Various  internal  volumes  and  deck  areas  as  required  in  Test  2  of  the 
General  Test  Plan  were  measured  from  plans  provided  by  Bell -Hal  ter.  These  are 
tabulated  in  Toole  2.  The  special  use  suitability  is  subjective.  The  minimum 
values  given  represent  approx  nnately  th‘  volume/area  which  can  be  used  for  no 
other  purpose  than  that  listed.  Maximum  values  include  many  overlapping 
areas/volumes.  Choosing  the  use  of  each  area  requires  trade-offs  between 
conflicting  uses  for  the  space.  Also,  more  internal  area  can  be  obtained  by 
reducing  the  external  deck  area. 


TABLE  2 

DECK  AREA  AND  INTERNAL  VOLUME 


USCGC  DORADO  (WSC5-1) 


Total  enclosed  volume  of  hull 

31500  cu 

ft 

Total  enclosed  volume  of  deckhouse 

3400  cu 

ft 

External 

deck  area 

Aft  platform 

270  sq 

ft 

Main  deck 

2490  sq 

ft 

01 

400  sq 

ft 

02 

120  sq 

ft 

Internal 

deck  area 

01 

100  sq 

ft 

Ma  i  n 

1160  sq 

ft 

1 

3350  sq 

ft 

Special 

use  suitability 

Max  Area/Vol 

Min  Area/Vol 

a. 

Liquids 

13300  cu.  ft 

5500  cu.  ft 

b. 

Accommodations,  etc. 

1770  sq.  ft 

800  sq.  ft 

c . 

Machinery  Spaces 

1990  sq.  ft 

370  sq.  ft 

d. 

OPS  and  Communications 

15C0  sq.  ft 

700  sq.  ft 

e . 

Pilot  House 

700  sq.  ft 

700  sq.  ft 

f. 

Provisions  and  Cargo 

2060  sq.  ft 

360  sq.  ft 

g- 

Stacks  and  Uptakes 

140  sq.  ft 

140  sq .  ft 

h. 

Boat,  Helo  and  AtoN 

1500  sq.  ft 

0  sq.  ft 

i . 

Ground  Tackle 

100  sq.  ft 

0  sq.  ft 
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4.2  Speed  vs.  Power 

Speed/power  trials  were  conducted  previously  by  the  Naval  Sea 
Systems  Command  (NAVSEASYSCOM)  Detachment  in  Norfolk,  Virginia.  A  trial  was 
conducted  in  accordance  with  Test  3,  Speed  versus  Power,  of  the  General  Test 
Plan  primarily  to  veri fy  this  previous  work.  Speed  and  power  were  measured 
both  on  cushion  and  off  for  a  displacement  between  the  two  di spl acements 
previously  tested. 

The  results  of  this  test  are  shown  in  Figures  7  and  8.  When  these 
results  are  compared  to  the  previously  reported  results,  a  large  discrepancy 
will  be  noted.  During  our  trial  runs  the  vessel  was  never  able  to  achieve 
hump  speed  and  peaked  at  a  speed  of  slightly  more  than  22  knots.  Possible 
explanations  for  this  performance  are  non-optima!  trim  of  the  vessel  or  an 
increase  in  bottom  fouling.  During  our  tests  the  trim  was  approximately  0.1 
degrees  versus  0.6+  degrees  used  during  the  Navy  tests.  Experience  with  the 
craft  has  shown  it  to  be  extremely  sensitive  to  trim.  However,  prior  to 
conducting  the  trials  the  trim  was  adjusted  to  get  the  maximum  speed  with 
seemingly  little  effect.  The  amount  of  bottom  fouling  was  unknown.  There  is 
not  enough  information  to  attribute  a  cause  to  this  transitory  problem. 

Torque  was  measured  dt,  ing  the  test  runs  using  Ultra  Product 
Systems,  Inc.  horsepower  measuring  equipment.  Serious  problems  were 
experienced  with  this  moans  of  measuring  torque.  These  problems  and 
recommendations  for  improvements  are  discussed  i/i  Appendix  C. 

Observations  made  during  the  DORADO  tests  and  the  results  of  these 
speed/power  trials  illustrate  one  very  important  difference  between  the 
performance  of  SES's  and  displacement  vessels.  Namely,  on  a  displacement 
craft  the  los.s  of  50  percent  of  power  may  only  result  in  a  speed  loss  of  10-20 
percent,  while  on  an  SES  the  effect  can  be  much  greater.  If  an  SES  such  as 
the  DORADO  were  to  lose  one  engine  it  could  not  get  over  hump  speed  and  the 
speed  loss  will  be  50  percent  or  greater.  This  effect  becomes  more  pronounced 
in  faster  SES's.  Also,  there  must  be  an  adequate  power  margin  to  drive  the 
vessel  past  hump  speed  even  in  non-optimum  conditions.  The  DORADO  clearly 
does  not  possess  this  margin  as  illustrated  by  the  speed/power  trials 
performed. 
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4.3  Fuel  Consumption 


A  modified  version  of  Test  4,  Fuel  Consumption,  was  performed.  This 
was  done  to  verify  the  accuracy  of  the  results  obtained  by  the  Naval  Sea 
Systems  Command  curing  testing  on  19-20  Feoruary  1980.  Informal  observations 
of  fuel  consumption  during  the  QPE'/AL  indicated  a  lower  fuel  consumption .  Tne 
confirming  tests  were  performed  on  3  December  1981.  A  shaft  torsion  mater  was 
not  installed  during  the  tests  so  shaft  horsepower  is  not  available. 


In-line  fuel  flow  indicators  (gal /mi n )  ware  installed  on  both  the 
supply  and  the  return  fuel  lines  of  the  two  main  proDulsion  engines  and  the 
two  lift  fans.  The  fuel  consumption  of  the  generator  was  ignored.  RFM 1 s  were 
measured  on  both  propulsion  shafts  and  both  lift  fan  shafts.  A  two  nautical 
mile  measured  run  was  used.  Runs  were  made  in  ooth  directions  at  the  same 
throttle  setting.  The  results  were  recorded  and  the  average  over  the  two  runs 
was  used  to  minimize  the  effects  of  wind  and  current. 


The  results  of  the  tests  are  shown  in  Figures  9  and  10.  Additional 
data  is  contained  in  Appendix  A,  Table  A-1.  The  fuel  consumption  data 
gathered  by  NAVSEASYSCOM  was  confirmed  by  these  tests.  The  fuel  consumption 
curve  based  on  gal/nm  is  very  flat  over  the  operating  range  of  the  DORADO. 
This  permits  transitting  at  maximum  speed  with  no  greater  fuel  consumption 
than  when  travelling  slowly. 


USCGC  DORADO 

Ham  propulsion  &  li 


SPEED 


SPEED  (Kts) 


4 . 4  Towing  Capability 


Test  5,  towing  capability,  was  conducted.  A  bollard  pull  test  was 
performed  on  21  May  1931  at  Mobile,  Alabama,  and  an  82-foot  WPS  was  towed  on 
10  November  1981  in  Pensacola  Bay.  The  DORADO  was  instrumented  as  prescribed 
during  the  82-foot  WPS  tow  but  did  not  have  horsepower  measuring  equipment 
installed  for  the  bollard  pull  test. 

The  results  of  these  tests  are  shown  in  Figures  11,  12  and  13.  A 
maximum  bollard  pull  of  23000  pounds  was  measured  at  1100  ERPM  off  cushion. 

On  cushion  a  maximum  pull  of  18000  pounds  was  measured  at  900  ERPM.  The 
DORADO  was  able  to  tow  the  82-foot  WPB  at  a  speed  of  11.4  knots  exerting  a 
towline  pull  of  7000  pounds. 

No  serious  problems  were  noted  affecting  the  ability  of  the  SES  to 
tow  other  vessels.  However,  the  small  diameter,  high  RPM  propellers  installed 
are  optimized  for  high-speed  performance  and  are  not  very  efficient  for 
towing.  The  propeller  design  requirements  for  these  two  conditions  are  quite 
far  apart  and  may  separate  further  if  higher  speed  vessels  are  contemplated. 

It  will  probably  be  necessary  to  install  variable  or  dual  pitch  propellers  to 
improve  performance  while  towing  with  the  least  effect  on  free  route 
performance . 

It  must  be  noted  also  that  the  port  engine  was  producing  one-third 
less  power  than  the  starboard  engine  while  towing  the  82-foot  WPB.  For  this 
test,  bridge  personnel  advanced  the  throttles  in-line  visually.  As  a  result 
engine  imbalance  was  not  detected  and  therefore  not  corrected  during  this 
test.  Therefore,  the  towline  pull  may  be  slightly  low  as  measured  in  these 
te.,  v  s . 
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4.5  Spiral  Maneuvered il i ty  Test 

Test  No.  3,  Maneuveraoil ity-Spiral  Test,  was  conducted  for  two 
on-cushion  speeds,  10  knots  and  20  knots,  and  one  off-cushion  speed,  9  knots. 
An  attempt  was  also  made  to  conduct  a  spiral  test  with  the  vessel  going 
astern.  It  was  determined  that  the  vessel  backed  into  the  wind  and  tne  test 
was  terminated.  However,  as  a  result  of  this  test  it  was  discovered  that  the 
main  engines  and  generators  lost  cooling  water  after  only  about  14  seconds  of 
running  astern.  This  would  prevent  any  extended  maneuvering  astern  at  high 
speed . 

Wind  speed,  wave  height  and  current  speed  were  within  the  limits 
specified  in  the  General  Test  Flan.  Figures  A-l  to  A-3  in  Appendix  A  show  the 
results  of  these  tests.  The  "P10TER"  computer  program  in  Appendix  B  was  used 
to  plot  the  data. 

Test  results  indicate  that  the  D0?,AD0  has  stable  maneuvering 
characteristics  with  no  hysteresis  loop  apparent  near  zero  rudder  angle.  The 
high  speed,  on-cushion  run  has  the  widest  spread  of  data.  This  :s  believed  to 
be  due  to  the  vessel  turn  rate  having  not  stabilized  in  the  time  ali.ved.  It 
apparently  requires  a  significantly  longer  settling  time  to  achieve  a  constant 
yaw  rate  at  this  speed . 
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4 . 6  Zigzag  Maneuver  and  Performance  in  Stern  Seas 


Test  No.  9,  Maneuverabil  ity-Zi gzag  Maneuver,  was  conducted  for  three 
on-cushion  speeds  and  two  off-cushion  speeds.  The  test  also  was  conducted  at 
11  knots  on-cushion  with  the  seas  from  astern.  The  latter  run  satisfied  the 
requirements  of  Test  No.  17,  Performance  in  Astern  Seas. 

The  following  exceptions  were  made  to  the  procedures  for  these  tests 
as  stated  in  the  General  Test  Plan.  First,  the  low-speed  maneuvering  test  was 
not  performed  due  to  the  inability  of  the  DORADO  to  maintain  speeds  of  less 
than  6  knots.  When  on-cushion  the  vessel  has  very  low  drag  which  results  in  a 
clutch  or  idle  speed  of  6  knots.  Also,  the  primary  test  location  prevented 
the  vessel  from  establishing  a  base  course  into  the  wind.  This  had  a  minimal 
effect  on  the  test  results  but  is  evident  in  that  it  made  the  vessel  easier  to 
turn  in  one  direction  than  the  other. 

Not  all  runs  were  made  with  course  changes  of  20  degrees  to  either 
side  of  the  base  course.  The  information  from  these  runs  is  valid  since  the 
yaw  rate  was  steady.  It  is  the  yaw  rate  and  the  rudder  angle  which  determine 
the  amount  of  overshoot. 

Current  speed  was  slightly  greater  than  that  recommended  in  the  Test 
Plan.  It  was  approximately  0. 7-1.0  knots  instead  of  the  0.5  knots  called 
for.  This  caused  no  noticeable  effect.  Similarly,  the  water  depth  was  much 
less  than  called  for.  Most  of  the  tests  were  conducted  in  12  feet  of  water  on 
cushion.  This  probably  caused  a  small  change  in  the  maneuverabil i ty  of  the 
craft.  The  effect  does  not  appear  to  be  large  from  the  data  collected. 

In  the  stern  seas  performance  test  the  wave  height  was  approximately 
2  feet  instead  of  the  6-10  feet  required.  Because  of  the  small  waves  the 
results  of  the  test  a r,:-  not  very  meaningful.  They  tend  to  confirm  the  other 
zigzag  maneuve*  da'u  lather  than  showing  a  degradation  of  performance  in  stern 
seas. 


Table  3  liits  the  principal  factors  involved  in  these  tests.  Figure 
14  is  a  typical  data  plot  annotated  to  show  hew  the  entries  in  the  table  were 
derived.  The  remaining  data  plots  are  in  Appendix  A.  Appendix  B  contains  the 
computer  programs  used  to  reduce  and  plot  the  data. 

The  jagged  appearance  of  the  performance  in  stern  seas  plot  in 
Appendix  A  is  due  to  the  fact  that  the  data  points  straddled  the  dead  band  in 
the  yaw  angle  transducer.  This  causes  a  few  of  the  data  points  to  be  off 
scale  on  the  plot. 

In  Table  3  the  time  to  execute,  which  is  the  time  from  the  first 
execute  to  the  second,  and  the  period  are  direct  measures  of  the  ability  of 
the  vessel  to  rapidly  change  course.  Overshoot  yaw  angle  and  overshoot  path 
width  are  numerical  measures  of  countermaneuvering  ability  and  are  indicative 
of  the  amount  of  anticipation  required  of  a  helmsman  while  operating  in 
restri cted  waters. 
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Since  comparable  data  has  not  yet  been  collected  on  other  Coast 
Guard  vessels,  no  comparisons  can  be  made.  However,  there  is  no  indication 
from  tiie  data  collected  that  there  exists  any  rnaneuverabil  ity  problems  with 
this  vessel.  It  behaves  similarly  to  a  displacement  vessel  and  is  fully 
controllable  under  all  speeds  and  configurations. 
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FIGURE  14 

ZIGZAG  MANEUVER  -  OFF  CUSHION 
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4.7  Time  to  Get  Underway 


The  time  required  for  the  vessel  to  depart  the  dock  from  a  dead 
plant  condition  was  measured  as  prescribed  in  Test  No.  10  of  the  General  Test 
Plan.  The  times  determined  by  this  test  are  reasonably  typical  based  on 
observations  of  test  personnel.  The  elapsed  times  are  given  below. 


TABLE  4 

TIME  TO  GET  UNDERWAY 


Event 

Initial  notification 
Generators  started 
Generators  on  line 
Shore  tie  disconnected 
Operations  ready 
Deck  Department  ready 
Main  engines  started 
Engineering  plant  ready 
Vessel  departed  dock 


Elapsed  Time  (Minutes) 

0 

2 

3 

6 

6 

6 

9 

13 

16 


This  time  is  sufficiently  short  to  cause  little  problem  in  responding  to 
emergency  calls. 


4.3  Visibility  from  Deckhouse 

Test  11,  Visibility  from  the  Deckhouse,  was  performed.  The  areas  of 
clear  view  are  shown  in  Figure  15.  Complete  availability  of  a  360  degree  view 
in  th*  X-Y  plane  is  easily  obtained  by  walking  around  the  pilothouse.  An 
arbitrary  optimum  viewing  area  has  been  assumed.  This  area  extends  from  an 
angle  of  15  degrees  above  the  horizon  to  20  degrees  below  the  horizon  at  all 
horizontal  angles.  This  area  is  12600  degrees  squared. 

For  the  DORADO,  the  clear  view  area  is  4636  degrees  squared.  This 
is  36.8  percent  of  the  optimum  value. 
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FIGURE  15 

CLEAR  VIEW  AREA  FRCW  DECKHOUSE 


centerline  behind  the  console. 


4.9  Moment  to  Heel  and  Boom  Capability 


Test  Nos.  12  and  31  in  the  General  Test  Plan  -were  performed.  The 
inclining  experiment  was  performed  in  less  than  ideal  conditions.  The  crane 
used  to  shift  the  weight  could  not  reach  across  the  deck  of  the  S ES .  As  a 
result  the  SES  had  to  be  turned  130  degrees  at  the  dock  in  order  to  shift  the 
weights.  The  wind  was  blowing  at  10-15' knots  onto  the  pier.  Therefore  the 
moment  due  to  the  wind  was  added  to  the  inclining  moment  in  both  weight 
locations.  Calculations  indicated  that  this  added  about  3  percent  to  the 
incl ining  moment. 

Due  to  the  extremely  high  GM  of  the  SES,  the  GM  was  not  adjusted  for 
free  surface  in  the  fuel  and  water  tanks.  The  tanks  on  the  SES  are  all  small 
and  have  small  transverse  dimensions  so  this  omission  will  have  very  little 
effect.  The  tank  soundings  at  the  time  of  the  test  are  reported  in  Appendix 
A,  Table  A-2. 

A  moderately  successful  attempt  was  made  to  measure  the  roll 
period.  One  10000-pound  weinht  was  dropped  about  1  foot  onto  one  side  of  the 
deck  to  induce  a  roll.  The  vessel  rolled  only  about  3  degrees  and  the  roll 
damped  out  in  one  cycle.  A  period  of  about  two  seconds  was  measured  but  this 
measurement  was  subject  to  considerable  error.  A  2-second  period  equates  to  a 
radius  of  gyration  of  13.9  feet  which  is  a  reasonable  value. 

A  detailed  description  of  the  procedure  used  to  measure  the  GM  is 
given  in  Appendix  D.  The  GM  calculated  is  59.4  feet  which  includes  the  effect 
of  the  beam  wind.  The  value  of  KM  from  ihe  curves  of  form  is  69.2  feet, 
resulting  in  a  KG  of  9.3  feet.  This  indicates  that  the  vertical  center  of 
gravity  is  located  several  feet  below  the  main  deck  which  is  reasonable. 

The  moment  to  trim  one  inch  from  the  curves  of  form  is  23.2 
ft-tons.  If  a  heel  angle  of  6  degrees  is  chosen  as  the  maximum  acceptable 
heel  angle  then  the  maximum  weight  which  can  be  lifted  5  feet  off  the  side  of 
the  vessel  is  77000  pounds  at  a  displacement  of  302500  pounds.  This  heel 
angle  will  result  in  an  approximately  2-1/2  foot  change  in  draft  on  the  side 
of  the  vessel.  This  very  impressive  lifting  capability  is  a  result  of  the 
large  GM. 


Other  data  regarding  these  tests  is  contained  in  Table  A-2  of 
Appendix  A. 
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4.10  Motion  In  Waves  and  Susceptibility  to  Slamming 


Tests  13,  Motion  in  Waves,  and  16,  Susceptibil  i ty  to  51am.ni.ng,  were 
performed  on  9  November  1931  off  Pensacola,  Florida.  Significant  wave  height 
during  the  tests  ranged  from  2  to  3  feet.  This  is  at  the  low  end  of  the 
acceptable  test  range.  As  a  result  the  motions  experienced  were  not  severe. 
The  sea  state  was  nearly  unidirectional.  However,  a  significant  component 
wave  developed  during  the  tests  from  about  100  degrees  true.  The  primary  wave 
direction  was  140  degrees  true.  Water  depth  in  the  test  area  was  84  feet. 

Motions  in  all  six  degrees  of  freedom  were  recorded  together  with 
the  wave  motion.  Only  roll,  pitch  and  heave  motions  for  selected  runs  were 
analyzed,  however.  Spectra  for  the  runs  examined  are  included  in  Appendix  A 
together  with  a  listing  of  the  peak  and  valley  ordinates  of  these  spectra. 
Table  A-3  in  Appendix  A  lists  the  one-third  and  one-tenth  highest  motions. 

The  location  of  the  motion  package  is  shown  in  Figure  16.  No 
correction  has  been  made  to  the  heave  motion  to  adjust  for  the  longitudinal 
distance  between  the  location  of  che  motion  package  and  the  center  of 
flotation . 


Three  mechanical  impact  counters  were  installed  in  the  ship's 
office  and  three  in  the  after  engineering  space  see  (Figure  16).  These  were 
all  bolted  to  the  overhead  centerline  girder.  Tnese  counters  were  read  over 
3-hour  periods  during  both  the  on-cushion  and  off-cushion  motion  tests. 

Nearly  all  the  slams  occurred  during  the  20-minute  head  sea  runs,  however. 

Most  of  the  slamming  occurred  during  the  8-knot  run  off -cushion. 
During  the  3-hour  period  only  two  slams  exceeding  1  g  occurred  while  on 
cushion.  Approximately  102  slams  exceeding  1  g  and  two  exceeding  2  g's 
occurred  during  the  same  period  off  cushion. 

The  slow-speed  run  in  head  seas  was  by  far  the  roughest  ride.  The 
motion  amplitudes  recorded  show  little  difference  between  this  run  and  others 
but  the  coupling  between  the  pitch  and  heave  motions  was  such  that  a  very 
rough  ride  resulted. 

A  continuing  problem  exists  concerning  ship  motion  studies  of  this 
sort.  This  problem  results  from  the  waves  not  being  unidirectional. 

Therefore,  ship  motion  response  may  not  be  the  same  in  different  seas  even  if 
they  have  the  same  amplitude  distribution.  This  problem  is  discussed  in  more 
detail  in  Appendix  C.  Improvements  are  also  discussed. 

In  general  there  was  not  a  great  deal  of  difference  between  the 
motions  at  the  different  speeds  and  configurations.  Pitch  motion  at  21  knots 
was  significantly  less  than  at  8  knots  due  to  the  much  higher  frequency  of 
encounter.  Other  motions  were  not  affected  much  by  the  frequency  of  encounter 
sh i ft  w i tn  speed . 
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4.11  Sail  Area 


The  projected  areas  of  the  hull  arid  deckhouse  were  computed  as 
required  by  Test  14,  Sail  Area.  The  sail  area  was  also  computed  for  the 
vessel  on  cushion.  The  locations  of  the  centers  of  area  are  shown  in  Figures 
17  and  13  and  are  tabulated  in  Table  5  below.  The  coordinates  are  based  on 
the  axes  shown  on  the  figures. 


TABLE  5 

SAIL  AREA  RESULTS 


Si  de 
Area 

X 

Y 

Fwd 

Area 

Z 

Hull  on  Cushion 

1289 

54.1 

2.2 

523 

3.0 

Hull  Off  Cushion 

867 

54.9 

4.5 

377 

5 .0 

Deck  House 

383 

66.1 

14.1 

276 

15.3 

Combined  On  Cushion 

1672 

56.8 

5.0 

799 

7.3 

Combined  Off  Cushion 

1250 

53,3 

7.4 

653 

9.3 
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4.12  Watertight  I  n t •? a r~  i  t y 

Figure  19  shews  me  floodable  length  curve  for  the  110-fool  SES. 

The  cross-hatch  area  of  this  curve  shows  tine  vessel  satisfies  a  one -comp art.7ie.nt 
standard  for  subdivision.  The  area  shaded  with  dots  indicates  the  additional 
requirements  for  meeting  a  L wo -compartment  standard.  The  vessel  falls  short 
of  being  a  two-compartment  vessel  but  only  due  to  tne  combination  of  the 
machinery  and  cargo  compartments.  Any  other  pair  of  adjacent  compartments 
could  be  flooded  and  the  vessel  would  remain  afloat  provided  all  other 
compartments  were  intact. 

A  ship  check  indicated  numerous  violations  of  watertight  integrity 
on  the  watertight  boundaries.  Nearly  all  these  watertight  integrity  problems 
were  due  to  poor  maintenance,  i.e.,  loose  wire  stuffing  tubes.  The  design  of 
an  SES  is  very  similar  to  that  of  a  catamaran  hull  form  and  an  SES  has  few 
additional  watertight  integrity  problems.  One  that  does  require  attention  is 
the  problem  associated  with  the  ducting  for  the  lift  cushion.  On  the  DORADO 
this  consisted  of  a  passage  under  the  first  deck  running  the  length  of  the 
vessel  between  the  side  hulls.  This  passage  was  open  to  the  sea  and  connected 
to  the  interior  of  the  vessel  through  the  lift  fans.  The  lift  fans  must  be 
watertight  to  the  flooded  waterline  or  else  flooding  of  the  machinery  space 
will  result.  Similar  design  problems  will  exist  with  any  SES  design  but  can 
be  eas i ly  h  and  led . 
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4.13  Hull  Vibrations  Level 
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ted  djring  the 
wit.n  tii e  vessel 


Test  Mo.  23,  Hull  Vibrations  Level,  was 
speed -pcwer  trials.  Mo  vibration  measurements  were  made 
running  astern  because  the  DORADO  can  operate  astern  for  only  a  few  minutes 
before  losing  sea  suction.  The  procedures  of  Test  23  were  followed.  Wave 
height  during  the  tests  was  higher  than  optimum.  There  was  a  2-foot  wave 
height  instead  of  the  desired  one  foot. 


Six  acceleration  transducers  were  installed  on  the  vessel  in  the 
locations  designated  in  Figure  20.  All  transducers  were  mounted  on  bulkhead 
stiffeners  near  the  main  deck  level.  All  locations  were  at  hard  spots  which 
should  virtually  eliminate  local  vibrations.  Plots  of  the  vibration 
displacement  amplitude  for  selected  runs  are  included  in  Appendix  A.  Four 
different  runs  are  shown  in  these  plots.  Run  Mo.  1  was  conducted  at  zero 
speed  on-cushion,  and  Run  Mo.  20  was  conducted  at  zero  speed  off-cushion  with 
the  fans  secured.  Run  11  was  a  full-speed  run  on  cushion  and  represents  the 
peak  hull  vibration  level.  Run  16  was  a  1200  rpm  run  off-cushion.  This  is 
maximum  speed  off-cushion.  The  pickup  numbers  referenced  are  those  shown  on 
Figure  20. 


All  of  the  results  show  a  high  level  of  vibration  below  aoout  2 
hertz.  This  vibration  is  caused  primarily  by  the  waves.  On  cushion  there  is 
a  pronounced  peak  at  approximately  2.5  hertz.  At  zero  speed  this  vibration  is 
in  phase  along  the  length  of  the  hull  or,  put  another  way,  is  a  heaving 
vibration.  At  full  speed  this  vibration  changes  to  a  pitching  vibration.  The 
other  vibration  peaks  represent  vibrations  in  the  fundamental  bending  motion 
of  the  hull.  None  of  the  vibrations  are  severe  and  all  appear  to  be  caused  by 
the  lift  fans.  There  is  almost  no  vibration  caused  by  the  propellers.  This 
is  probably  due  to  their  small  size  and  high  rpm. 

Although  the  crew  complained  of  vibration  problems  on  the  DORADO, 
there  appears  to  be  no  serious  overall  vibration  of  the  hull.  Most  of  the 
problems  are  probably  local  vibrations  which  must  be  handled  individually. 

The  lift  fans  seem  to  be  the  primary  vibration  source  for  vibrations  of  the 
hull  as  a  whole.  The  most  significant  vibration  ic  probably  caused  by  a 
rhythmic  venting  of  the  cushion. 
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4.14  Question?]?,  ires 


Most  of  tiie  rnc.  -e  subjective  aspects  of  the  OPE VA L  were  handled  by 
having  the  crew  fill  out  questionnaires.  The  same  questionnaire  was  used 
during  both  test  periods.  The  responses  to  the  questionnaires  have  been 
compiled  and  are  included  in  Appendix  A.  Since  the  number  of  topics  covered 
by  the  questionnaires  is  large,  no  further  discussion  will  be  included  here. 
Crew  composition  was  less  than  ideal  for  a  study  of  this  type.  This  problem 
is  one  of  those  discussed  in  Appendix  C.  Most  types  of  operations  the  Coast 
Guard  performs  were  performed  by  the  DORADO  during  the  OPEVAL.  The  DORADO 
performed  all  these  missions  quite  well  and  was  rated  by  the  crew  to  be  a 
significant  improvement  over'  an  82-foot  ViPB. 


4.15  Handling  Pollution  Gear  and  Anchoring 

A  deployment  of  the  self-skimming  barrier  was  observed  by  LCDR 
GOODWIN  of  the  R&D  Center  (R2.DC)  .  This  deployment  also  involved  the  SES 
towing  the  Coast  Guard's  fast  deployment  sled  and  a  small  Dracone  barge.  Two 
problem  areas  were  noted.  First,  the  SES  could  not  get  over  hump  speed  with 
the  sled  in  tow.  The  SES  was  able  to  maintain  about  13  knots  which  is 
slightly  faster  than  a  WPB  while  towing  the  sled.  Second,  the  SES's  anchors 
were  inadequate  to  hold  the  vessel  in  position  with  the  boom  deployed.  In  all 
other  aspects,  the  SES  performed  as  well  as  or  better  than  a  WPB  and  provided 
a  very  stable  work  platform. 

Test  36,  Anchoring,  was  also  performed  to  verify  other  aspects  of 
anchoring  and  vessel  ride  while  at  anchor.  No  serious  problems  were 
encountered  which  would  prevent  safe  anchoring.  The  vessel  rides  well  at 
anchor  and  has  no  tendency  to  override  the  anchor  cable.  There  does  not 
appear  to  be  any  danger  of  damaging  the  forward  seal  either  when  anchoring  or 
when  riding  at  anchor.  It  is  apparent  from  calculations  of  the  required 
anchor  size  and  as  a  result  of  the  barrier  deployment  that  a  significantly 
larger  anchor  is  required.  The  anchor  hoisting  apparatus  installed  on  the 
DQRAOO  was  inadequate  to  raise  the  anchor  currently  installed.  An  anchor 
capstan  of  adequate  size  and  power  is  absolutely  essential  to  safe  anchoring. 


Powering  of  the  vessel  is  discussed  in  other  sections  of  this 
report.  However,  as  a  Coast  Guard  vessel  the  SES  must  possess  a  towing 
capability.  Variable  pitch  or  dual  pitch  propellers  should  be  considered  to 
enhance  towing  performance.  Propeller  design  will  be  a  critical  element  of 
any  high  performance  craft.  It  is  nearly  impossible  to  design  an  efficient 
fixed  pitch  propeller  which  can  operate  under  high  speed  free  route  conditions 
and  under  high  thrust  low  speed  conditions.  A  well-designed  dual  pitch  or 
variable  pitch  propeller  should  be  a  significant  improvement. 


4.16  Ma Intainabil  ity 

Test  34,  Maintainabil ity,  was  conducted  but  there  was  insufficient 
data  collected  during  the  OPEVAL  to  determine  mean  time  between  failures  and 
mean  time  to  repair. 

Some  significant  maintenance  problems  were  noted.  There  were  many 
cracks  in  bulkheads  and  stiffeners  which  required  welding.  The  structure  in 
way  of  the  after  ballast  tank  was  particularly  prone  to  cracks.  It  is  clear 
that  the  structure  of  the  SES  must  be  increased  in  strength  to  survive  the 
rough  service  Coast  Guard  use  will  impose. 

Other  maintenance  problems  resulted  from  local  vibrations.  One  of 
these  caused  a  very  serious  engineroom  fire  when  an  oil  line  broke  spraying 
oil  onto  a  turbocharger.  The  vibration  test  on  the  hull  indicated  no  serious 
vibrations  of  the  overall  hull  structure.  The  local  vibration  problems  should 
be  correctable  by  redesign  of  the  structure  or  shock  and  vibration  mounting  of 
equipment.  No  vibration  mounts  were  used  on  the  DORADO. 

Most  of  the  equipment  was  easily  accessible  for  maintenance.  One 
exception  is  the  outboard  sides  of  the  main  engines.  Few  on  board  spares  can 
be  carried  due  to  weight  considerations. 
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4.17  Secondary  Variables 


The  checklist  from  Test  35,  Secondary  Variables,  was  used  during  a 
survey  of  potential  problem  areas.  Of  primary  importance  was  identi fi cation 
of  hull  or  equipment  items  that  are  inadequate  for  Coast  Guard  service  or 
which  would  restrict  use  to  certain  geographic  locations. 

About  three  inches  of  insulation  was  installed  in  the  accommodation 
areas  of  the  DORADO  but  none  in  the  engine  room  or  other  machinery  spaces.  iJo 
sound  deadening  insulation  was  installed  on  board.  In  order  to  meet  Coast 
Guard  standards,  more  insulation  would  be  required  with  the  accompanying  added 
wei ght. 


There  were  no  particular  problems  noted  in  the  area  of  equipment 
vulnerabil  l't.y  and  protection  from  the  elements.  All  equipment  was 
well -protected  even  though  venting  of  the  cushion  causes  a  great  amount  of 
spray  on  the  deck. 

No  unique  safety  hazards  'were  noted.  However,  the  large  vertical 
accelerations  measured  in  previous  Navy  tests  associated  with  operating  this 
vessel  in  high  sea  states,  as  documented  by  the  Naval  Sea  Systems  Command 
( NAVSEAS YSCOM )  IN  Report  No.  CG-D-13-81,  pose  a  serious  safety  problem. 
Personnel  are  likely  to  be  thrown  around  if  not  strapped  into  seats  under 
these  conditions. 

Ship's  plans  show  the  location  of  equipment  adequately. 

A  fixed  CO?  fire  extinguishing  system  was  installed.  No 
sprinklers  were  installed.  There  were  two  fire  pumps  installed  and  pressure 
appeared  adequate.  Vital  cables  and  watertight  doors  were  sati sfactorily 
located.  The  switch  for  the  main  fire  pump  was  in  a  poor  location  but  this 
could  easily  be  corrected. 

A  heat  pump  was  installed  for  heating  and  ventilation.  This  system 
appeared  adequate  under  a  heavy  air  conditioning  load  and  is  probably 
satisfactory  for  most  heating  loads  as  well.  Heated  windows  were  not 
installed  in  the  pilot  house. 

A  small  davit  with  electric  winch  was  installed  to  launch  a  4-meter 
AVON  rigid  hull  rubber  boat.  No  significant  problems  were  noted  in  boat 
handling  using  this  arrangement.  The  boat  was  easily  launched  with  a  few  men 
in  seas  up  to  4-5  feet.  Higher  sea  states  were  not  observed. 

Excellent  navigation  equipment  was  installed.  These  included  two 
Loran-C's,  a  Loran-C  plotter,  and  a  VHF-FM  direction  finder.  A  small  gyro 
compass  was  installed  but  the  magnetic  compass  was  usually  used.  Chart  table 
space  was  adequate  but  not  excessive.  Two  radars  were  installed. 

The  vessel  had  two  VHF-FM  radios  and  an  HF  radio.  One  VHF-FM  radio 
was  equipped  to  scan  and  also  to  act  as  a  radio  direction  finder.  3oth  of 
these  features  were  highly  useful  and  praised  by  the  crew. 

No  cargo  boom  was  installed. 
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A  bilge  and  ballast  system  was  installed  on  the  SES.  However,  no 
capability  was  installed  to  pump  water  from  a  disabled  craft  alongside.  The 
DORADO  did  carry  standard  Coast  Guard  dewatering  pumps. 

A  total  of  95  KW  of  generator  capacity  was  installed.  This 
included  a  55  KW  main  generator  and  a  40  KW  generator  installed  on  the  port 
lift  fan  shaft.  There  was  no  evaporator  installed. 

Two  8V92TI  Detroit  diesel  engines  were  installed  to  drive  the  two 
lift  fans.  The  port  engine  also  is  coupled  to  a  40  KW  generator. 

The  actual  hotel  load  is  not  known  but  installed  capacity  was  more 
than  adequate  for  14-16  people.  Sewage  holding  capability  appeared  to  be  the 
most  critical  hotel  services  problem. 

In  summary,  there  are  few  serious  problems  which  would  preclude  the 
use  of  this  vessel  as  a  Coast  Guard  vessel.  Insulation  and  sound  deadening 
would  have  to  be  improved.  As  mentioned  elsewhere  in  this  report,  the 
structural  failures  experienced  require  redesign  and  strengthening  of  much  of 
the  hull  structure.  Both  of  these  problems  will  result  in  considerable 
additional  hull  weight  and  may  require  increased  engine  power  to  maintain 
performance. 
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TA8LE  A-l 

FUEL  CONSUMPTION  DATA 

GENERAL  DATA:  3  December  1931  -  Wind  SW  at  10-15  knots 

Seas  SW  at  1-2  fact 

4  December  1931  -  Wind  SW  at  10-15  knots 

Seas  SW  at  1  foot 

Water  Depth  (measured  run)  26-40  feet 
4°  trim  by  the  stern 


2-3 

Speed 

December 

Gal/Hr 

1931 

Gal/N.M. 

19-20  February 
Speed  Gal/Hr 

1980 

Gal/N.M. 

5.0 

57 

11.4 

10.8 

57 

5.3 

8.6 

60 

7.0 

14.2 

90 

6 . 3 

12.2 

90 

7.4 

19.8 

160 

8.1 

17.0 

137 

8.1 

22.6 

163 

7.2 

17.2 

148 

8.6 

27.6 

205 

7.4 

18.5 

151 

8.2 

23.0 

165 

7.2 

26.1 

195 

7.5 

Twin  Screw  "  *  . ~ 

Gawn-Burrill  Propeller 
3-blade,  bronze 

40-inch  diameter  by  50.82  fixed  pitch 

Main  Propulsion  (2)  -  16V149TI  Detroit  Diesel  w/lSQrnm  injectors 
(2)  -  8V92TI  Detroit  Diesel  w/9290  injectors 

Draft:  (Forward)  7'-10" 

'  (Aft)  8 1 -6" 

Displacement:  329,430  lbs 

Fuel  Flow  Monitors  by  Headland  products:  3000  PSI  Max 

3/4"  Supply 
1/2"  Return 
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TABLE  A-2 

INCLINING  EXPERIMENT 


Data:  S/5/81 

Location:  USCG  Basa  Mobile,  Alabama 
Vessel:  USCGC  DORADO  (WSES-1) 

Drafts:  Fwd  Port  7 '-6" 

Fwd  Stbd  V  -6" 

Aft  Port  8 ' -2  1/2" 

Aft  Stbd  S' -2" 


Water  Depth:  24  feet 

Water  Temperature:  90°F 

Water  Specific  Gravity:  1.022 

Wind  Speed:  10-15  kts  on  beam 

Air  Temperature:  84°F 

Barometric  Pressure:  30.12 

Two  10,000-pound  sinkers  used  as  inclining  weights. 


Liquid  Loading 


Tank 

Tank 

1A 

450  gal 

3 

397  gal 

IB 

50  gal 

4A 

365  gal 

2A 

416  gal 

4B 

365  gal 

2B 

508  gal 

Pot .water 

554  gal 

Lube  oil 

113  gal 
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COMPILED  QUESTIONNAIRE  RESPONSES 
QUESTIONNAIRE  1 5A  -  SUBJECTIVE  SEAKEEPING  CHARACTERISTICS 

VESSEL  NAME  _ 

YOUR  NAME  _ _ _ DATE 

TIME  ON  80ARD 


This  questionnaire  covers  some  of  the  aspects  of  seakeeping  which  are  difficult  to  : 
measure.  Answer  the  questions  which  you  feel  are  within  your  experience.  Check 
Not  Observed  if  you  do  not  feel  qualified  to  answer  the  question.  If  there  are 
additional  comments  you  would  like  to  make  regarding  seakeeping,  you  may  include 
them  in  the  Remarks  section.  i 


1.  Since  you  have  been  on  this  vessel,  what  were  the  maximum  wave  height  and  wind; 
speed  you  experienced? 


Wave  Height 

Less  than  5  feet 
5-15  feet 
15-30  feet 

Greater  than  30  feet 


Wind  Speed 

Less  than  20  knots 
20-35  knots 
35-60  knots 
Greater  than  60  knots 


2.  Hc-w  did  this  vessel  perform  in  those  conditions  compared  to  a  WP8? 


About  the  same 
Much  better 
Better 


_£L 

JL 


Worse 

Much  worse 


3.  Based  on  your  experience,  in  what  sea  state  will  the  vessel  reach  the  limit  of 

safe  oceration?  ,  _  .  .  _ 

i  2,  '4,  IS  ,Zo 

Wave  height  1°>  >$,  1°i  T-°  _ feet 


4.  In  what  sea  stcte  does  it  become  difficult  to  perform  your  job? 

Wave  height  6-J,7  )0,  >'?  _  feet 

5.  What  is  the  principal  reason  for  this  difficulty? 


Motion  sickness  _  Difficult  to  stand  or  .move  /  4 

Spray  or  water  on  deck  4 

Other  (explain)  i  i  ~.u  cac,<L 


5.  Hew  do  you  think  the  .motions  of  this  vessel  in  a  sea  compares  to  a  WP3  in 
terms  of  ability  to  perform  your  job? 


Not  observed 
Much  better 
3etter 


X  About  the  same  / 
4  Worse  ~~ 
7  Much  worse 
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What  motion  of  the  vessel  causes  tne  most  difficulty’ 


Not  observed 
P i tch ing 

Fore  and  aft  acceleration 


4  Rol 1 ing 

_  Vertical  acceleration 

I  Side  to  side  acceleration 

I  Unpredictable  accelerations 


Is  motion  sickness  a  problem  compared  to  a  WP3 ? 


Not  observed 

Much  more  of  a  problem 

More  of  a  problem 

Is  deck  wetness  a  problem? 

Not  observed 
Yes 


What  is  the  principal  cause  of  deck  wetness? 


About  the  same 
Less  of  a  problem 
Much  less  of  a  problem 


Not  applicable  _  Spray  ,<• 

Waves  washing  deck  ,  Vent  lines  “o 

Other  (explain)  ±  Tu  j£  _ ± 

Does  spray  cause  a  visibility  problem? 

Not  observed 

Yes  jr  No  ij 

WPB?C°eS  this  vessel  in  rain,  sleet,  or  snow  compare  to  a 


Not  observed 
Much  better 
Better 


4-  About  the  same 

4  Worse 

<T  Much  worse 


Hew  does  your  ability  to  navigate  in  fog  with  this  vessel  compare  to  a  WPB? 


Not  observed 
Much  better 
Better 


About  the  same 
Worse 

Much  worse 


What  causes  fog  navigation  to  be  better  or  worse  than  a  WPB? 


Not  app 1 i cable 
Location  of  lockouts 
Other  (explain) 


Electronics  installed 
Plotting  area  available 


What  wave  height  limits  the  maximum  speed  of  the  vessel,  i.e.,  when  do  you 
have  to  slow  cown  to  operate  the  vessel  safelv?  J 

Not  observed 
Wave  height 

4-s ,  y?.'-,*/? 


feet 


- 


I 

[, 


0 


16. 

What  is  the  principal 

reason  for  slewing 

down? 

Not  observed 

Vessel  motions 

S 1 ammi ng 

~To 

Motion  sickness 

Water  on  deck 

Spray 

i 

Other  (explain) 

~T~ 

\J  (.  p  t ,  r  a l  /r  C C/t W. ,<r  r,  CrJ  S 

17. 

What  direction  to  the 

waves  provides  the 

bes t  ride? 

Head  seas 

1 

Bow  seas 

2. 

Beam  seas 

Quartering  seas 

_3_ 

Stern  seas 

H 

18. 

What  direction  to  the 

waves  provides  the 

worse  ride? 

Head  seas 

Bow  seas 

3 

Beam  seas 

2. 

Quartering  seas 

2- 

Stern  seas 

< 

19.  At  what  headings,  if  any,  do  you  feel  it  would  be  unsafe  to  operate  the  vessel] 
in  the  maximum  sea  state  you  have  seen  while  on  the  vessel?  Check  all  that  ] 
apply.  ! 


Head  seas 

Bow  seas 

(o 

Beam  seas 

4 

Quartering  seas 

2-  ’ 

•Stern  seas 

All  headings  safe 

-51! 

i 

O 

CM 

In  the  maximum  sea  state  you 

experienced , 

could  the  vessel  be  kept  on  course  | 

at  all  headings? 

Not  observed 

Yes 

T r 

No 

2. 

21. 

If  no,  what  headings  prevent  maintaining 

course? 

/ 

Not  appl icable 

Head  seas 

i 

Bow  seas 

Beam  seas 

2. 

Quartering  seas 

_L 

Stern  seas 

-L 

22. 

What  procedure  do  you  feel  is  best  for  improving  the  ship's  ride 

in  high 

seasl 

Not  observed 

Slow  down  on  present 

course 

i 

7 

Change  course 

Change  operating  condition 

H  H  1 

Heave  to 

(come  off  cushion,  etc.) 

Other  (explain) 

_]_ 

Best  operating  condition 

22, 

Hew  does  tne  susceptibility 

of  this  ve ss 

el  to  icing  compare  to  a 

WF3  ? 

Not  observed 

About  the  same 

( 

Much  better 

Worse 

Better 

Much  worse 

1 

A -7 

d 

L 


24.  Is  this  vessel  me r e  susceptible  to  damage  due  to  deacneads  i 

w 


in  the  water  than 


Not  observed 
More  susceptible 


_  About  the  same 

g  Less  susceptible 


25.  Remarks.  Induce  comments  cn  any  aspects  of  seakeeping  not  covered  in  the 
questions  above  which  you  feel  are  important. 

much  mo  /It  S'r^dcc  Ti+/W  u-'gA  .  M  AlOlS  tsJo/li'.  uJz  ALo/jcZ/dC.  i 
At o  t* H Ai  S /t-L.  /£  /)•  S' /tLt-Ot* JS  C/ZX-tsJ  "f~ o  GooQ /V/fJ  j 


qUtbTIONNAIRS  r?A  -  HABITABILITY 


VESSEL  NAME 


YOUR  NA/!: 


IME  ON  BOARD 


This  questionnaire  covers  some  of  tne  aspects  of  hab  i  tab  i  1  i  ty .  That  is,  hew  ccn| 
fortable  is  it  to  work  and  rest  aboard  the  vessel.  Answer  the  questions  which  ^ 
feel  are  within  your  experience.  Check  Not  Observed  if  you  do  not  feel  qualifiej 
to  answer  the  question.  If  there  are  additional  comments  you  would  like  to  make 
regarding  habitability,  you  may  include  them  in  the  Remarks  section.  ' 


1.  Overall,  hew  do  you  feel  the  habitability  on  this  vessel  compares  to  a  W?3? 


Much  better 
Better 

About  the  same 


/ 4  Worse 

Much  worse 


2.  Hew  do  you  rate  the  berthing  compartments  on  this  vessel? 


Excel  1 ent 
Good 

Only  fair 


\  C*  Poor 

"~4~  Terrible 


3.  How  do  you  rate  the  messing  facilities? 


Excellent 

Good 

Only  fair 


l £  Poor 

A  Terrible 


4.  How  do  you  rate  the  sanitary  (heads,  showers)  facilities? 


Excell ent 
Good 

Only  fair 


^  Poor 

,9  Terrible 


5.  What  was  the  noise  level  like  where  ycu  worked  and  slept! 


Where  You  Worked 
Not  ooserved 
Qu  iet 

Mi  Idly  noisy 
Very  noisy 
Deafen ina 


Where  You  Sleot 
Not  ooserved 
Qu  iet 

Mildly  n  o  i  s  y 
Very  noisy 
Deafen  ino 


5.  Did  the  noise  level  affect  ycur  ao  i  1  i  :y  so  perform  your 


Nos  cc served 
Yes 


a.  n 


7.  Oid  the  noise  level  affect  your  ability  to  get  a  good  night's  sleep? 


Not  observed 
Yes 


JL  No 


8.  How  did  the  motion  of  the  vessel  affect  your  ability  to  get  a  good  nignt's 
sleep? 


Prevented  sleep 

Had  little  effect  on  sleep 


_  Made  it  difficult  to  sleep 

dl  Not  observed  __> 


9.  How  does  the  motion  of  this  vessel  compare  to  a  WPB  in  its  effect  on  your 
ability  to  sleep? 


Much  better 
Better 

About  the  same 


A.  Worse 
£  ^  Much  worse 

2. 


10.  What  is  the  temperature  in  the  berthing  and  messing  areas  like? 


Not  observed 
Too  hot 


Jus  t  r  igh  t 
Too  cold 


11.  Did  temperature  in  the  berthing  compartment  affect  your  ability  to  get  a  good 

night's  sleep?  ] 

I 

Not  observed  _ 

Yes  _  No  I  0 

12.  What  was  the  vibration  level  like  where  you  worked  and  slept?  j 


Where  You  Worked 
Not  observed 
No  vibrations 
Moderate  vibrations 
High  vibrations 


Whe^e  You  Slept 
Not  observed 
No  vibrations 
Moderate  vibrations 
High  vibrations 


13.  Oid  the  vibration  level  affect  your  ability  to  perform  your  job? 


Not  observed 
Yes 


X  No 


14.  If  yes,  what  was  the  principal  way  it  affected  your  ability  to  do  your  job? 

/TV/^yruiJ^  HAS  to  Cj€.  •"H  ££>  _ 


15.  Did  the  vibration  level  affect  your  ability  to  get  a  good  night's  sleep? 

Not  observed  _ 

Yes  3  No 
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J All 


6.  Hew  does  the  vibration  level  on  this  vessel  compare  to  a  WPS? 

Not  observed  .  _  About  the  same  I 

iluch  higher  vibrations  %  Lower  vibrations  *  ~ 

Higher  vibrations  _j_  Much  lower  vibrations 

7.  Remarks.  Comment  on  Qn y  factors  concerning  habitability  which  were  not  cov¬ 
ered  above. 

/VkuCK  TOo  tJOiZy  u>ouGlL  £A>z  Pp.orccr\o»J  C'tjzAPjL 

I 

•J  ( (l  (i.firTl  0*J  £  f*prl£.£  )  1~  b'f-P/CULT  TO  P,t  r/C  1 

fOGD  P#JLPA/Of- /A  /*$&£*  b/AP-tC  u  Lr  7'A4rJ  OfJ  /f  <^'Vs7*? 

£*"7  f\f-ThjZ  DC.C“Z  foo  h^o  I  Si/  T"  o  C& AAfAU  tj  ‘  C  A-r  t, 
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QUESTIONNAIRE  2QA  -  OPERATIONS  EQUIPMENT  ARRANGEMENT 

VESSEL  NAME  _ 

YU UR  NAME  _ 

TIME  ON  BOARD 


DATE 


& 


L 

. 

A. 

I  ■ 


3 


This  questionnaire  covers  some  aspects  of  the  arrangement  of  equipment  used  by  the 
operations  personnel.  Answer  the  questions  you  feel  are  within  your  experience. 
Check  Not  Observed  if  you  do  not  feel  qualified  to  answer  the  question.  If  there 
are  additional  comments  you  would  like  to  make  regarding  operations  equipment 
arrangement  on  this  vessel,  you  may  include  them  in  the  Remarks  section. 

1.  Compared  to  a  WPB,  what  equipment  was  easier  or  more  convenient  to  use  and 
what  was  less  convenient  to  use? 


Easier  or  More  Convenient 

_ QJLlAAL _ 


More  Difficult  or  Less  Convenient 


t~ !  /.  (-'iG 


dAfiAA. 


£-/?-rhio  m*.  rfc  <&• 


2.  Did  difficulty  in  using  some  navigation  equipment  cause  significant  problems 
affecting  the  safe  operation  of  the  vessel? 


Not  observed 
Yes 


No 


1 6 


3.  If  yes,  which  equipment  caused  the  problem  and  why? 
C  Atu'r'  Plot  oh 


4. 


5. 


o . 


Did  some  equipment  peculiar  to  this  vessel  make  it  significantly  easier  to 
operate  the  vessel  safely? 

Not  observed  _ 

Yes  _A_  No  4 

If  yes,  what  equipment? 

AJ± y  ,  fc/vpAA-S  ,  Lo>£>w-c  Pi-or-cn^ _ 

Hew  would  you  rate  the  ease  of  conducting  night  operations  with  this  vessel 
compared  to  a  WPB? 


Not  observed 
.Much  easier 
Eas  ier 


_Z_ 

< 


About  the  same 
More  difficult 
Much  more  difficult 
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7  . 


What  principal  aspects  of  the  equipment  or  equipment  arrangement  made  it 
easier  or  more  difficult? 

E-Q.0  i  P t  ~r~o  ^  p _ 


3. 


Were  there  unique  safety  hazards  associated  with  using  the  operations  equip¬ 
ment  on  this  vessel  whion  did  not  exist  on  a  WPS?  If  so,  list  them. 


Not  observed 

Unique  h  ^ards  £ 4 1  PPL&y 


No  unique  hazards 


9.  Did  the  motion  of  the  vessel  cause  significant  problems  for  you  in  equipment 
operation? 


Net  observed 
Yes 


No 


iU 


10.  Did  vibrations  cause  problems  with  the  equipment? 


Not  observed 
Yes 


No 

11.  Compared  to  a  WPB,  what  was  the  noise  level  in  the  pilothouse  like? 


Not  observed 
Much  noisier 
Somewhat  noisier 


About  the  same 

_  Somewhat  quieter 

g;  Much  quieter 


4 


12.  What  was  the  overall  effect  of  noise,  vibration,  and  ship  motion  on  your 
ability  to  do  your  job? 


Not  observed 

Made  it  extremely  difficult 


Caused  little  difficulty 
Had  no  effect 


_U 

.S' 


Made  it  diff icul t  3 

13.  Did  you  find  this  vessel  more  fatiguing  than  a  WPS? 
Yes  (  No 

l=ss  fatiguing? 

Yes  7  No 


±L 


l 


14.  Was  there  adequate  protection  from  the  elements  to  permit  you  to  operate  the 
vessel  effectively? 

Not  observed  _ 

Yes  jjz  No 

15.  Did  exhaust  gas  from  the  stacks  cause  any  problems  with  vessel  operation? 


Not  observed 
Yes 


zT  No 
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f°oat'inghic6?thiS  VeSSel  could  be  operated  without  damage  in  waters  containing 
Not  observed 

Ves  H  no  ja 

Remarks.  Comment  on  any  other  aspect  of  operations  equipment  arrangement 
wmch  you  cnoose. 
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QUESTIONNAIRE  21A  -  ENGINEERING  EQUIPMENT  ARRANGE, MEN- 


VESSEL  NAME _ 

YOUR  NAME 


TIME  ON  BOARD 


This  questionnaire  covers  some  aspects  of  the  arrangement  of  equipment  used  by  the 
engineering  personnel.  Answer  the  questions  you  feel  are  within  your  experience. 
Check  Not  Observed  if  you  do  not  feel  qualified  to  answer  the  question.  If  there 
are  additional  comments  you  would  like  to  make  regarding  engineering  equipment 
arrangement  on  this  vessel,  you  may  include  them  in  the  Remarks  section. 

1.  Compared  to  a  WPB,  what  equipment  was  easier  or  more  convenient  to  run  and 
what  was  less  convenient  to  run? 


Easier  or  More  Convenient 
Ad  <£- 


More  Difficult  or  Less  Convenient 

^AAT  4  /U;,f  / 


2.  Did  difficulty  in  operating  any  of  the  machinery  cause  significant  problems 
affectina  the  sare  ooeration  nf  the  vessel? 


affecting  the  sare  operation  of  the  vessel 
Not  observed 

Yes  i 


3.  If  yes,  which  equipment  caused  the  problem? 


4.  Oid  some  machinery  peculiar  to  this  vessel  make  it  significantly  easier  to 
operate  the  vessel  safely? 

Not  observed  _ 

Yes  jZ  No 

5.  If  yes,  what  equipment? 


6.  Compared  to  a  WPS,  were  the  main  engines  easier  to  work  cn? 

Not  observed  _ 

Yes  4  No 
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More  difficult  to  work? 


Not  observed  _ 

Yes  i  No  ^ 

7.  How  would  you  rate  the  ease  of  maintenance  of  equipment  in  the  engine  rooms 
compared  to  a  WPS? 


Not  observed 

Much  easier  to  maintain 

Easier  to  maintain 


About  the  same 
Harder  to  maintain 
Much  harder  to  maintain 


8.  Haw  would  you  rate  the  ease  of  maintenance  of  all  equipment  outside  the  engin< 
rooms  compared  to  a  WPS? 


Not  observed 

Mu  ch  e  as  i  er  to  maintain 

Easier  to  maintain 


About  the  same 
Harder  to  maintain 
Much  harder  to  maintain 


9.  Which  equipment  cause  the  most  maintenance  problems  and  why? 

10.  Were  there  unique  safety  hazards  associated  with  running  the  engineering  planl 

on  this  vessel  which  did  not  exist  on  a  WP8?  If  so,  list  them.  ! 

I 

j 

Not  observed  _  No  unique  hazards  _ ; 

Unique  hazards  C^tJr  y, oh  a ,  <j£d/L  \ 

AjfAh  Tr>  G*L  rj,  P*Q/l  .  W  uJitlLL  j 


11.  Did  the  motion  of  the  vessel  cause  significant  problems  for  you  in  equipment 
operation? 

Not  observed  _ 

Yes  z  No  _2_ 

12.  Did  vibrations  cause  problems  with  the  equipment? 


Not  observed 
Yes 


_fL  No 


13.  What  equipment  was  most  affected  by  vibrations? 

.  £l£C$  tJu<$  j  gours _ _ 

14.  Compared  to  a  WPS,  what  was  the  noise  level  in  the  engine  room  like? 


Not  observed 
Mu  ch  noisier 
Somewhat  noisier 


About  the  same 
Somewhat  quieter 
_  Much  quieter 


15.  What  was  the  overall  effect  of  noise,  vibration,  and  ship  motion  on  your 
ability  to  do  your  job? 

Not  observed  _  Caused  little  difficulty 

Made  it  extremely  difficult  |  Had  no  effect  _ |_ 

Made  it  difficult 

16.  Did  you  find  this  vessel  more  fatiguing  than  a  WPS? 

Yes  No  4  ; 

i 

Less  fatiguing?  i 

Yes  4  No  3  : 

j 

It.-  Did  you  experience  any  problems  with  equipment  failing  due  to  hot  weather?  j 

i 

Not  observed  j 

Yes  _  No  9  i 

18.  If  so,  what  equipment?  I 


19.  Did  any  equipment  fail  due  to  cold  weather? 

Not  observed  _ 

Yes  _  No  _j? 

20.  If  so,  what  equipment? 


21.  Remarks.  Comment  on  any  other  aspect  of  engineering  equipment  arrangement  or 
operation  which  you  choose.  Comment  on  superfluous  equipment  or  needed 
equipment  which  was  not  on  ooard. 


QUESTIONNAIRE  22A  -  DECK  EQUIPMENT  ARRANGEMENT 


VESSEL  NAME  _ _ _ 

YOUR  NAME _ DATE 

TIME  ON  BOARD  _ 


This  questionnaire  covers  some  aspects  of  the  arrangement  of  equipment  used  by  the' 
deck  department.  Answer  the  questions  you  feel  are  within  your  experience.  Check, 
Not  Observed  if  you  do  not  feel  qualified  to  answer  the  question.  If  there  are 
additional  comments  you  would  like  to  make  regarding  deck  equipment  on  this  vessel  > 
you  may  include  them  in  the  Remarks  section. 

1.  Compared  to  a  WPB,  what  equipment  was  easier  or  more  convenient  to  use  and  i 
what  was  less  convenient  to  use?  : 

’  •  I 

Easier  or  More  Convenient  More  Difficult  or  Less  Convenient  j 


IojO  G/LaP-  S  traP 

Cl-tOrt.  t+4-VDu/J'j 

C>  OA,  ,-2.0  1  k)  G  f-  ^OA-r~ 

&OA-T-  DAS/  f 

5/n/>a  tfofVT- 

rouv  a<rr 

- - - - - 

■  -  — - -  -  —  ■  — —  -  —  ■  —  H 

2.  Did  difficulty  in  operating  any  of  the  equipment  cause  significant  problems 
affecting  the  safe  operation  of  thevessel? 

Not  observed  _ 

Yes  _  No  /Z. 

3.  If  yes,  which  equipment  caused  the  problem? 


4.  Did  some  equipment  peculiar  to  this  vessel  make  it  significantly  easier  to 
conduct  operations  safely? 

Not  observed 

Yes  _ZT  No 

5.  If  yes,  what  equipment? 

/A 4  O  Go  7/<*  J  t  L  i  r  V _ 

6.  Compared  to  a  WPB,  was  tne  deck  equipment  easier  to  maintain? 

No  I 


Not  observed 
Yes 


Mors  difficult  to  maintain? 


;< 


i.- 

c 

t 


L 


* 

< 


B 


I 


Not  observed  _ 

Yes  L  n°  <o 

7.  Hew  would  you  rate  the  ease  of  maintenance  of  the  hull  (painting,  etc.)  com¬ 
pared  to  a  WPB? 


Not  observed 

Much  easier  to  maintain 

Easier  to  maintain 


___  About  the  same 

I  Harder  to  maintain 

2-  Much  harder  to  maintain 


8.  What  equipment  or  structure  caused  the  most  maintenance  problems? 


9.  Were  there  unique  safety  hazards  associated  with  deck  operations  on  this 
vessel  which  do  not  exist  on  a  WPB?  If  so,  list  them. 

Not  observed  _  No  unique  hazards  _7 

Unique  hazards  Uuu.u  cycles  du/l  to  Po  _ 


10.  Oid  the  motion  of  the  vessel  cause  significant  problems  for  you  in  equipment 
operation? 

Not  observed  _ 

Yes  _  No  /  3 

11.  Did  vibrations  cause  p’-ob'ems  with  the  equipment? 

Not  observed  _ 

Yes  _Z__  No  \  1 

12.  What  equipment  was  most  affected  by  vibrations? 


,  Mull.  ST/Z^crjrz^. 


Compared  to  a  WPB,  what  was 

the  noise  level  on  deck  like? 

Not  observed 

About  the  same 

Much  noisier 

£?  Somewhat  quieter 

Somewhat  noisier 

3  Much  quieter 

What  was  the  overall  effect 
ability  to  do  your  job? 

of  noise,  vibration,  and  ship  motion  on  your 

Not  observed 

Caused  iittle  difficulty 

7 

Made  it  extremely  difficult 
Made  it  difficult 

Had  no  effect 

2. 

15.  Did  you  find  this  vessel  mere  fatiguing  than  a  WPB? 


Less  fatiguing? 

Yes  _5?_  No  _L 

16.  Oid  you  experience  any  problems  with  equipment  failing  due  to  hot  weather? 

Not  obs  "  J  _ 

Yes  _  No  1 2- 

17.  If  so,  what  equipment?  ; 


18.  Did  any  equipment  fail  due  to  cold  weather?  | 

Not  observed  _  J 

Yes  _j_  No  %  1 

j 

19.  If  so,  what  equipment?  1 


20.  Remarks.  Comment  on  any  other  aspect  of  deck  equipment  arrangement  or  opera¬ 
tion  which  you  choose.  Comment  on  superfluous  equipment  or  needed  equipment 
which  was  not  on  board . 


QUESTIONNAIRE  27A  -  OBSERVED  MISSION  SUPPORT  CAPABILITY 


VESSEL  NAME  _ 

YOUR  NAME  _  DATE 

TIME  ON  BOARD 


This  questionnaire  is  intended  for  engineering  personnel  who  are  a  part  of  the  tes  1 
team.  It  will  not  be  completed  by  the  crew.  Various  issues  are  included  which  i 
affect  the  ability  of  the  vessel  to  conduct  its  mission  but  which  do  not  fit  well  ; 
into  other  categories.  A  survey  must  be  made  of  the  vessel  before  completing  this 
questionnaire  in  order  to  determine  the  capabilities  of  the  vessel.  In  general, 
the  test  vessel  will  not  have  installed  capability  in  the  areas  of  interest  or  the 
installed  capability  may  be  minimal.  You  must,  therefore,  look  for  problem  areas 
which  would  prevent  installation  or  diminish  the  capability  if  installed.  Advan-  j 
tages  which  the  test  craft  type  possesses  over  other  vessel  types  should  be  noted.' 
Of  greatest  interest  are  those  characteristics  of  the  test  vessel  type.  Character! 
istics  peculiar  to  the  specific  test  vessel  should  be  noted  but  kept  separate  from! 
type  characteristics .  ! 

j 

1.  Could  a  water  washdown  system  be  installed  to  wash  the  entire  main  deck  and 
deckhouse? 

Yes  S'  No  _ ] 

2.  Would  any  equipment  of  significant  importance  to  the  operation  of  the  craft 
need  to  be  secured  to  operate  the  water  washdown  system  if  installed?  List. 

(OoiJL 


3.  Is  there  any  reason  why  a  firefighting  system  similar  to  that  installed  on  CG 
cutters  could  not  be  installed  on  this  vessel. 

Yes  _  No 

4.  If  yes,  what  is  the  reason? 


5.  Is  this  craft,  due  to  its  design  or  materials  of  construction,  prevented  from 
getting  as  close  to  another  burning  ship  or  structure  as  a  conventional  steel- 
hulled  vessel  could  get? 

Yes  No  _ 

6.  Could  the  vessel  get  close  encugn  to  a  major  fire  to  use  a  fire  monitor  if  one 
was  installed? 


7.  How  would  you  rata  the  damage  stability  of  this  vessel  type  compared  to  a  WP31 

Much  better  _  Worse  tX 

Better  _  Much  worse  _ 

About  the  same  _ 


8.  Is  the^e  anything  in  the  design  of  the  vessel  tnat  would  prevent  installing  an 
adequate  dewatering  system  on  beard? 

Yes  _  No 

9.  If  yes ,  explain. 


10.  Can  this  vessel  dewater  another  vessel  using  all  the  methods  conventionally  ! 

used?  ] 

j 

Yes  ^  No  _ i 

i 

11.  If  problems  exist  in  dewatering  another  vessel,  explain  them.  ; 


12.  Hew  difficult  would  it  be  to  load  cargo  onto  this  vessel  compared  to  a  WPS? 

Much  easier  _ _  More  difficult  _ 

Easier  u  -  Much  more  difficult  _ 

About  the  same  _ 

13.  What  is  the  potential  cargo  capacity  of  this  vessel  compared  to  a  WP3? 

Much  greater  _  Less 

Greater  Much  less 

About  the  same  _ 

14.  What  characteristics  of  this  vessel  make  it  easier  or  more  difficult  to  load 
cargo? 

f  CA<Z&o  SPACjL  fir  bfi.c-ii.  LiC/X-L. _ 


15.  Could  oceanographi c  and  similar  work  be  conducted  over  the  side  of  this  vesse 

Yes  v"  No  _ 

16 .  Are  these  potential  hazards  in  conducting  such  operations  not  found  on  conve.n 
tional  cutters? 

Yes  _  No 

17.  If  yes,  what  are  they?  1 


I . 


( 


13.  Dees  the  freeboard  on  this  craft  make  working  over  the  side  easier  or  more 
difficult  than  cn  a  WP3? 


Much  easier 
£  as  i  er 

About  the  same 


More  difficult 
Much  mere  difficult 


19.  Could  underway  repl en i snment  gear  be  installed  on  this  vessel  type  i r  the 
vessel  was  the  size  of  a  large  cutter. 

Yes  No  - 

20.  What  factors  peculiar  to  the  vessel  type  would  affect  such  an  installation? 

_ /UoaJ£. _ _ _ 

21.  Could  a  flight  deck  be  installed  on  this  vessel  type? 

Yes  No  _ 

22.  If  yes,  approximately  what  length  vessel  would  be  required? 

2.0  0  f-7~  _  _ _ _ 


23.  If  no,  what  aspects  of  the  vessel  conf i gur ation  would  prevent  it? 


B 


24.  Are  there  any  unique  hazards  which  would  prevent  refueling  a  helo  on  deck? 

Yes  _  No 

In  the  air? 

Yes  _  No 

25.  If  yes,  list  the  hazards. 


26.  Do  appendages  or  other  aspects  of  this  vessel  type's  confi gurat ion  make  it 
esoecially  dangerous  to  put  swimmers  in  the  water? 

lX 


✓'I 


Yes  ^  No 

27.  If  yes,  what  are  these  aspects? 

V-g_5  ,QA)Ly  ip  qo  Cjsh-i  oJ 


23.  Is  there  any  reason  why  conventional  shore  tie  connections  can  not  be  in¬ 
stalled  on  th is  vessel  ? 


Yes 


No 
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29.  If  yes,  list  the  reasons. 


30.  Could  a  sonar  be  installed  in  she  null  of  this  vessel? 

Yes  _  No 

Probably  _y//' 

31.  Could  the  sonar  be  made  as  effective  as  a  sonar  on  a  conventional  hull? 


Yes  _ 

Probably  ^ 

32.  Could  a  towed  sonar  system  be  installed? 


Yes 

Probabl  '• 


^  No 


33.  Are  special  sensors  required  to  detect  wave  height  or  craft  elevation  above 
the  surface? 


34.  Can  the  vessel  be  operated  safely  should  such  sensors  fail?  : 

Yes  _  No  _ ! 

Probably  _  ] 

I 

I 

35.  Could  an  underwater  communication  system  to  a  submersible  be  installed  for  us^ 

with  the  vessel  DIW.  i 


No 


36.  If  no,  why  not? 


Could  a  small  one  or  two-man  submersible  be  lifted  from  the  water  and  carried 
on  deck? 


Yes  No  _ 

Remarks.  Comment  on  any  other  points  regarding  the  above  questions  which  you 
wish*  Pilo*a  i >jov\  Hull  a^d  s  ^/L(- 

Po/iC/C  TO  O  A  P  A  A /ZTii /LG-  P-UZCS 
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QUESTIONNAIRE  2SA  -  SUBJECTIVE  MISSION  SUPPORT  CAPABILITY 
VESSEL  NAME  _ _ _ 


YOUR  NAME  _ 

TIME  ON  6QARQ 


This  questionnaire  covers  sere  aspects  of  the  vessel's  ability  to  perform  Coast 
Guard  missions  which  other  questionnaires  do  not.  Answer  the  questions  which  you 
feel  are  within  your  experience.  Check  Not  Observed  if  you  do  not  feel  qualified 
to  answer  the  question.  If  there  are  additional  comments  you  would  like  to  make 
concerning  the  application  of  this  vessel  to  CG  missions,  you  may  include  them  in 
the  Remarks  section. 


1.  Do  you  feel  an  up-to-date  plot  of  the  vessel's  position  can  be  maintained  or 
does  the  speed  of  the  vessel  make  it  difficult  to  keep  such  a  plot? 

Not  observed  _ 

Plot  can  be  maintained  very  easily  |  / 

Plot  can  be  maintained  with  little  difficulty  4 
Marginally  able  to  maintain  plot  r 

Plot  cannot  be  kept  up  to  date  _ 

2.  Does  the  navigation  equipment  installed  provide  the  information  you  need  to 
navigate  in  a  timely  manner? 


Not  observed 
Yes 


JZ  No 


3.  Do  you  need  more  information  or  information  more  often? 

Not  observed  _ 

Yes  _  No  (  co 

i 

4.  Are  there  other  problems  with  navigation  due  to  the  design  of  this  type  vessel! 
Not  observed 

Yes  T  No 


5.  If  yes,  what  problems? 


Qij  c  o  s  i-h  o  ^ 


5.  Does  the  configuration  of  the  vessel  cause  problems  with  the  installation  and 
use  of  standard  CG  communication  equipment. 


Not  observed 
Yes 


A- 29 


1 


r  ■■ 
r 

r 


7.  If  yes,  list  the  problems. 


C 

h. 

L 

8. 

How  would  you  rate  the  freeboard  of  this  vessel  when  boarding  another  vess 
alongs  iae ? 

el 

Not  observed 

Much  too  high 

Too  high 

Just  right 

I  Too  low 

i  Much  too  low 

to 

9. 

Were  there  hull  appendages  or  other  aspects  of  the  vessel's  design  that  made 
it  difficult  or  impossible  to  come  alongside  another  vessel? 

Not  observed 

Yes 

_  No 

±3 

i 

10. 

If  so,  what  were  they? 

i 

i 

i 

i 

n. 

Were  there  hazards  unique  to  this 
smal 1  boat  di ff icul t? 

vessel  type  which  made  coming  alongside 

in  ^ 

i 

i 

i 

\ 

h 

j, 

Not  observed 

Yes 

~~2 T  No 

1 

i  3  j 

—  -  1 

f 

12. 

If  yes,  what  hazards  exist? 

* 

1 

! 

! 

i 

n 

5£5  iTAlcA  CwjM-iLC  5 

'Uois'fa  c ^rp.-r  tc'/ll/Cf 

1 

1 

i 

i 

t 

13. 

j 

Ho-w  would  you  rate  the  difficulty  of  boarding  this  vessel  from  a  small  boat  j 
compared  to  boarding  a  WPS?  j 

i 

i 

Not  observed 

Much  easier 

Eas  ier 

About  the  same 

More  difficult 

Much  more  difficult 

d 

► 

y 

14. 

Do  you  feel  a  larger  vessel  of  this  type  could  be  outfitted  with  underway 

replen ishment  equipment  and  replenished  underway  safely? 

• 

! 

i 

Not  observed 

Yes 

~7T  no 

i 

15. 

If  no,  what  are  the  main  problem 

areas? 

1 

16 . 

Do  you  think  it  is  safe  to  put  a 

swimmer  in  the  water  from  this  vessel? 

Not  observed 

Yes 

ZE  NO 

A-3  0 


17. 


Oo  hull  appendages  or  other  aspects  of  this  vessel  type  make  putting  a  man  in 
the  water  dangerous? 


Not  observed 
Yes 


No 


is  : 


18, 


Do  you  foresee  significant  problems  in  recovering  a  swimmer  from  the  water 
with  this  vessel? 


Not  observed 
Yes 


No 


n ; 

19.  Compared  to  a  WPS,  how  difficult  is  it  to  get  an  injured  person  from  the  water 
onto  the  vessel?  1 


Not  observed 
Much  easier 
Eas ier 


About  the  same 
More  difficult 
Much  more  difficult 


20.  If  the  vessel  had  a  flight  deck  installed,  do  you  think  you  would  have  s i gn i f  —  ■ 
icant  problems  launching  and  recovering  a  helo? 


Not  observed  _ 

Yes  No 

21.  Hew  large  a  crew  would  be  required  to  launch  and  recover  a  helo? 

3-tf 


l<o 


22.  How  would  you  rate  the  ease  of  mooring  and  unmooring  the  vessel  compared  to  a 
WPS? 


About  the  same 
X  More  difficult 

Much  more  difficult 


Not  observed 
Much  easier 
Eas ier 

23.  What  is  the  principal  factor  which  made  it  easier  or  more  difficult  to  moor? 

0>Lv re, -a.  ?c _ 

24.  Did  you  have  significant  difficulty  loading  stores  and  cargo  on  the  vessel? 
Not  observed 

Yes  ~  /  No 

25.  Was  it  easier  or  more  difficult  than  loading  stores  and  cargo  on  a  WPS? 


Not  observed 
Much  easier 
t  as  i  er 


_  About  the  same 

X  More  difficult 

2-  Much  mere  difficult 


/ 

o 


26.  Did  the  vessel  deploy  any  pollution  cleanup  equipment  wh i 1 e  you  were  cn  board? 
Yes  Z_  No  /<! 
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27. 


i 


Which  major  pieces  of  equipment  were  deployed? 

j.  _  _  _ 


28.  Hew  would  you  rata  the  ease  of  deploying  pollution  equipment  from  this  vessel 
as  compared  to  a  WPS? 

About  the  same  3 

Z  More  difficult  _ 

I  Much  more  difficult  _ _ 

29.  Overall,  do  you  think  this  vessel  would  be  an  effective  means  of  transporting 
pollution  equipment  to  the  scene  of  an  oil  spill? 


Not  observed 
Much  easier 
Eas  ier 


Nut  observed  _ 

Yes  1 1  No  _ 

30.  Providing  that  proper  lifting  equipment  were  installed  do  you  think  this 
vessel  could  launch  and  recover  a  small  (one  or  two  man)  submersible? 

Yes  I Z  No 

31.  If  no,  why  not? 


32. 


i 

Remarks.  Include  any  other  comments  on  the  usefulness  of  this  vessel  type  on j 
CG  miss  ions .  ] 

j 


i 


I 
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QUESTIONNAIRE  30A  -  BOAT  LAUNCHING  CAPABILITY 


VESSEL  NAME 


YOUR  NAME 


TIME  ON  BOARD 


This  questionnaire  covers  some  of  the  aspects  of  boat  launching  which  are  difficult 
to  measure.  Answer  the  questions  which  you  feel  are  within  your  experience.  Check 
Not  Observed  if  you  do  not  feel  qualified  to  answer  the  question.  If  there  are 
additional  comments  you  would  like  to  make  regarding  the  ability  to  launch  a  small 
boat  from  the  vessel,  you  may  include  them  in  the  Remarks  section. 

I 

i 

1.  What  is  the  maximum  wave  height  in  which  you  have  seen  the  boat  launched  and  , 
recovered?  j 


Not  observed 
Less  than  5  feet 
5-10  feet 


_  10-15  feet 

i  o  15-20  feet 

4  Greater  than  20  feet 


2.  Compared  to  a  WPS,  how  easy  was  it  to  launch  and  recover  the  boat  from  this 
vessel? 


Not  observed 
Much  easier 
Somewhat  easier 


About  the  same 

3  Somewhat  more  difficult 

■  4  Much  more  difficult 


3.  Were  there  significant  safety  hazards  involved  in  launching  a  boat  from  this 
vessel? 


Yes  No 

Not  observed  _ 

4.  List  the  safety  hazards  which  were  most  significant, 

fl  ($/lP  tjJrra  SAt£.T'J  Co«j,0 


What  effect  did  the  freeboard  on  this  vessel  have  on  launching  and  recovery 
operations  compared  to  a  WPS? 


Not  observed 
Made  job  easier 


_  No  difference 

Z.  Made  jco  more  difficul 


■i-jj 


6.  Was  the  boat-handling  equipment  (davits,  lines,  etc.)  better  or  worse  tnan  a 
WPS? 


Not  observed 
Much  better 
Setter 


About  the  same 
Worse 

Much  worse 


7.  If  you  could  have  modified  the  boat-handling  equipment  and  arrangement  any  wa 
you  wished  could  it  be  made  better  than  the  current  arrangement  on  a  WPS? 


Not  observed 

Could  not  be  made  as  good 
Could  be  made  as  good 


Could  be  made  better 
Could  be  made  much  better 


8.  From  where  on  the  vessel  do  you  feel  it  is  best  to  launch  a  small  boat? 

S-rtLi+J  ofL  S  i  t>(L 

9 .  What  is  the  maximum  wave  height  that  you  feel  it  is  safe  to  launch  and  recova 

the  small  boat  in  from  this  vessel?  ; 


Less  than  5  feet 
5-10  feet 
10-15  feet 


15-20  feet 

Greater  than  20  feet 
Wave  height 


feeq 


10.  Remarks.  Comment  on  any  other  factors  affecting  boat  launching  which  you 
choose. 


* 


< 


< 


QUESTIONNAIRE  32A  -  SUR7I 7A3 IL ITY 

VESSEL  NAME  _ 

YOUR  NAME 


DATE 


TIME  ON  3 OAR 0 


i.iis  questionnaire  cove-  sme  of  the  aspects  of  s  urv  ivao  i  1  i  ty  as  they  apply  to 
this  vessel.  Answer  th  .estions  wn’cn  you  feel  are  within  your  experience.  | 

Check  Not  Observed  if  you  do  not  feel  qualified  to  answer  the  question.  If  there 
are  additional  consents  you  would  like  3  make  regarding  survived il i ty,  you  may 
include  them  in  the  Remarks  section  rvivability  as  used  here  refers  to  the 
vessel's  ability  to  survive  an  at*  :k  by  an  enemy. 

i 

| 

1.  Compared  to  a  WPB,  what  is  the  likelihood  that  this  vessel  would  be  damaged  by! 
an  underwater  explosion?  j 


Not  observed 
Much  mor°  likely 
Mo  re  likely 


About  the  same 


2_  Less  1  ikely 

Much  less  likely 


"zT 


2.  What  underwater  features  of  this  craft  make  it  more  or  less  susceptible  to 
damage? 

Not  appl  icat le 
Hull  plating  thickness 
Size  and  type  of  appendages 
Other  (explain) 


Hull  shape 

5* 

Amount'  of  hull 

_3_ 

Z. 

\ 


3.  Compared  to  a  WPS,  what  is  the  1  ikel  ihood  that  this  vessel  would  be  damaged  by 
an  air  blast? 


Not  observed 
Much  more  1  ikely 
More  likely 


About  the  same 
/  Less  1  ikely 

X  Much  less  likely 


4.  What  abovs-waf.r  features  make  it  more  or  less  susceptible  to  damage? 


Not  appl i cable 
Plating  thickness 
Other  (explain, 


_  Antennas  and  masts 

dT,  Area  of  plating 
Alu'h  .  Hull. 


I 

JL. 
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5.  What  ether  features  of  the  craft  make  it  more  or 
than  a  WP3? 


less  susceptible  to  damage 


More  Suspect i b 1 e 


Less  Susceotib' 


Speed 

Maneuver ab il  i ty 
Size 

Magneti  c  s  ignature 
Other  (explain) 


_4_ 


6.  Remarks.  Comment  on  any  other  factors  affecting  surv ivab i 1 i ty  that  you  choosy 
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B 


QUESTIONNAIRE  33A  -  INTEROPERABILITY  AND  LOGISTICS 

VESSEL  NAME  _ 

YOUR  NAME  _ 

TIME  ON  BOARD 


DAT! 


This  questionnaire  covers  some  of  the  aspects  of  operating  this  vessel  with  other 
Coast  Guard  units  and  of  resupplying  the  vessel.  Answer  the  questions  which  you 
feel  are  within  your  experience.  Check  Not  Observed  if  you  do  not  feel  qualified 
to  answer  the  question.  If  there  are  additional  comments  you  would  like  to  make 
regarding  operations  with  other  units  and  logistic  support,  you  may  include  them  in 
the  Remarks  section.  i 


1.  Is  fuel  readily  available  for  this  vessel? 


Not  observed 
Yes 


2. 


hfi  No 

How  would  you  compare  the  difficulty  of  fueling  this  vessel  to  a  WPS? 


Not  observed 
Much  easier 
Somewhat  easier 


About  the  same 
Somewhat  more  difficult 
Much  more  difficult 


3. 


What  is  the  principal  reason  for  fueling  being  easier  or  more  difficult? 

Compared  to  a  WP3,  was  this  vessel  restricted  in  the  piers  available  for 
mooring  by  any  of  the  following? 


Not  observed 
Beam 

Special  features 

(hull  appendages ,  etc . ) 
Other  (explain) 


n 


Draft 

Length 


_ZL 


Compared  to  a  WPS,  hew  difficult  was  it  to  load  and  stow  supplies  (food,  spare! 
parts,  and  consumed  les )  on  this  vessel? 


Not  observed 
Much  easier 
Somewiiat  easier 


_  About  the  same 

~z.  Somewhat  more  difficult 

<T  Much  more  difficult 


What  was  the  principal  reason  for  it  being  easier  or  .more  difficult? 


A- 3  7 


What  major  items  of  spare  parts,  peculiar  so  this  type  of  vessel,  do  you  thin!* 
will  be  required  frequently? 

tZfJG: P/rl  r<, 


8.  Have  you  observed  this  vessel  operating  jointly  with  a  helicopter? 

Yes  j  *2-  No 

9.  Compared  to  a  WP8,  haw  difficult  would  it  be  for  a  helo  to  lift  an  injured 
person  from  the  deck  of  this  vessel? 


Not  observed 
Much  easier 
Somewhat  easier 


About  the  same 
Somewhat  more  difficult 
2_  Much  more  difficult 


10.  Compared  to  a  WP3 ,  haw  difficult  would  i  t  be  to  conduct  combined  searches 
using  this  vessel  and  a  helo? 


Not  observed 
Much  easier 
Somewhat  easier 


About  the  same 
Somewhat  more  difficult 
Much  more  di f f i cul t 


11.  What  principal  factor  makes  it  easier  or  more  difficult? 

;  6*.  •OfT,!  /Vv>.vP.u  i/'; .}  ,  S  /  a  /'"/ _ _ 

12.  What  other  aspects  of  ship-helo  operations  are  noteworthy  with  regard  to  this 
vessel? 


Have  you  observed  ccmoined  operations  between  this  vessel  and  another  CG 
cutter? 

Yes  _/£.  No 

Compared  to  a  WPS,  hew  difficult  is  it  to  conduct  combined  operations  with 
another  CG  cutter? 


Not  observes 
Much  easier 
Somewhat  easier 


_  About  the  same 

Z.  Somewnat  more  difficult 

4  Much  more  difficult 
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15.  What  is  the  principal  factor  that  rnakes  it  easier  or  rare  dirricult  to  conduct 
combined  operations? 


16.  Hew  would  you  compare  refueling  this  vessel  alongside  a  larger  CG  cutter  to 
the  same  operation  on  a  WP3? 


Not  observed 
Much  easier 
Somewhat  easier 


About  the  same 
Somewhat  more  difficult 
Much  more  difficult 


17.  How  would  you  compare  other  replenishment  operations  alongside  to  a  WPB? 


Not  observed 
Much  easier 
Somewhat  eas  ier 


About  the  same 
Somewhat  more  difficult 
Much  more  difficult 


IS.  Has  your  vessel  relieved  a  tow  or  passed  a  tow  to  another  CG  vessel  while  you 
were  aboard? 


}0  No 


_2_; 


19.  Compare  the  difficulty  of  relieving  or  passing  a  tow  to  doing  the  same  opera¬ 
tion  on  a  WPB? 


Not  observed 
Much  easier 
Somewhat  eas ier 


About  the  same 
Somewhat  more  difficult 
Much  more  difficult 


20.  What  principal  factor  made  passing  a  tow  easier  or  more  difficult? 

,  5-f/V.  UJO&.IC  P i. rr-  Vwv.  .  /W/V/A.'/l //oL/VO  mw' 

l  ' 

21.  Are  there  hull  appendages  or  other  structures  likely  to  be  damaged  wnile 
towing  or  while  picking  up  or  passing  a  tow? 

Not  observed  _ 

Yes  /  No 

22.  If  yes,  what  appendages  or  structures? 

_ 

23.  Is  more  or  less  training  required  to  operate  and  maintain  this  vessel  than  is 
required  for  a  WPB? 


Not  observed 
Much  more 
Somewnat  more 


About  the  same 
Somewhat  less 
Much  less 


24.  What  types  of  training  need  to  be  given  which  arc  peculiar  to  this  type  of 
vessel ? 

££CciAL  ,  bks.C'/J  fp;'  tCLo  AK  r./  ■  ,?u.f  L-tCLUtoL 

- rfl i± a  ,  c  £ _ c^Ar  o//>.£,?r/o*s5 _ 

25.  What  types  of  training  are  required  on  a  WPB  that  are  not  required  on  this 
vessel ? 


26.  Overall,  how  would  you  rate  the  problems  of  keeping  this  vessel  supplied  w i th 
fuel,  consummab les ,  and  spare  parts  compared  to  a  WPB? 


Not  observed 
Much  easier 
Somewhat  easier 


___  About  the  same 

__  Somewhat  more  difficult  _ 

2_  Much  more  difficult 


27. 


Overall,  how  would  you  rata  the  problems  of  operating  this  vessel  with  other  1 
CG  units  compared  to  operating  a  WPB  with  other  CG  units?  ; 


Not  observed 
Much  easier 
Somewhat  eas  ier 


__  About  the  same 

2-  Somewhat  more  difficult 

7  Much  more  difficult 


28.  Remarks.  Comment  on  any  aspects  of  operating  with  other  CG  units,  resupplying 
the  vessel,  and  training  that  you  desire.  Offer  any  suggestions  you  have  fori 
making  combined  operations  more  efficient.  Any  craft  characteristics  which 
permit  new  tactics  should  be  noted. 

CtyJ  op  LiZ-A-tiC  &-A-S  /  uy  ^  I  fh1  0TH-C/1.  c^rrC^J  I 
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SPIRAL  TEST,  !Q  KT5  -  ON  CUSHION 


I  On  Cushion  -  Hhe<ui 
j  Water  Depth  12  Ft 
Ho  unr>d  or  current 


USCGC  DORADO 

ZIGZRG  MANEUVER  -  Or 


USCGC  DORRDO  (WSES-1) 

ZIGZAG  MANEUVER  -  On  Cushion  20  Kt 


J  opcny  '<2  m  ■p  ^ 


TINE  (Seconds) 


USCGC  DORADO  (WSES-1) 

ZIGZRG  MANEUVER  -  On  Cushion  30  Kts 


(6sq)  3[Suy  Jsppry  '-2 


FIGURE  A-o 


ZIGZAG  MANEUVER,  30  KTS  -  ON  CUSHION 


A-43 


-30 


USCGC  DORADO  (WSES-1) 

2IG2RG  MANEUVER  -  Off  Cushion  ?  Kts 


(osq)  9[Suy  j 0 p p n y  ^  ^ 


FIGURE  A-7 

IGZAG  MANEUVER ,  7  KTS  -  OFF  CUSHION 


TIME  C  Seconds  ) 
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T««t«a  n^a/at 
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VIBRATION  SPECTRA 
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APPENDIX  B 
COMPUTER  PROGRAMS 


COMMENTS  ON  PROGRAM  "SES" 


This  is  the  master  program  used  in  the  field  to  collect  data  for  the 
DORADO  tests.  It  can  be  used  as  a  model  for  other  ship  tests  as  well.  Much 
of  what  is  included  is  of  a  general  nature.  Routines  to  initialize  equipment 
and  test  to  insure  that  equipment  is  running  properly  are  included.  The 
program  stores  up  to  ten  minutes  of  data  on  floppy  oisks.  The  data  is  stored 
identically  on  two  floppy  disks  with  check  read.  This  means  that  the  data  is 
read  off  the  disks  after  being  stored  and  compared  to  internal  memory.  This 
insures  that  what  is  on  the  disks  is  what  was  intended.  Loran-C  data  can  also 
be  collected  and  continuously  plotted  if  desired.  The  program  contains 
provisions  to  read  any  of  the  data  desired  back  from  the  disk  after  a  run  and 
print  it  out. 

The  main  program  runs  self  tests  on  instruments  which  have  this 
capability.  All  instrumentation  was  on  interface  #3  except  the  floppy  disk  on 
interface  #7  and  the  Loran-C  on  interface  #11.  After  initializing  equipment 
the  main  program  transfers  control  to  the  data-col lecting  sub-program 
"Sestst". 

Sub-program  "Init"  initializes  the  devices  on  the  #3  bus  and  prints  a 
list  of  the  devices  on  the  bus. 

Sub-program  "Sestst"  is  the  main  data  collection  routine.  It  allows  for 
initial  test  setup  and  then  waits  for  the  test  to  start  at  line  2170.  Pushing 
CONTINUE  on  the  computer  will  start  the  test  sequence.  The  test  can  be  run 
for  an  integer  number  of  minutes  from  1  to  10.  The  loops  from  line  2230  to 
line  2680  comprise  all  the  data  collection  statements.  In  the  case  of  the  SES 
tests,  four  data  items  were  read  each  second  (scanner  channels  1-4).  On 
alternate  seconds,  frequency  and  time  delay  were  read  from  the  two  counters. 
Every  four  seconds  a  beep  tone  was  generated  to  assist  in  recording  data  from 
the  Loran-C.  Every  15  seconds  the  time  was  checked  and  data  printed. 

Provision  was  made  to  read  digital  data  from  the  horsepower  meter  but  this  was 
not  used. 

Each  minute  seven  additional  channels  were  read  (scanner  channels  5-11). 
This  process  is  repeated  for  the  number  of  minutes  specified.  After  all  data 
is  collected  it  is  stored  on  disk  in  subroutine  "Diskst".  As  previously 
stated,  this  routine  stores  duplicate  copies  of  the  data  using  check  read. 
Whenever  the  amount  of  data  changes,  the  number  of  records  allocated  for 
storage  of  this  data  must  be  adjusted  in  line  2960.  This  subroutine  tries  to 
be  forgiving  of  recoverable  errors  and  many  of  the  statements  are  for  this 
purpose. 

After  storing  the  data,  the  "Sestst"  sub-program  allows  the  operator  to 
print  some  of  the  data.  If  this  is  desired  then  sub-program  "Datanl"  is 
called.  This  sub-program  reads  the  stored  data  off  the  disks  and  offers  a 
menu  of  data  items  to  be  printed.  The  operator  selects  one  of  these  by  number 
and  the  program  decodes  and  scales  the  data  type  specified  and  then  prints 
it.  After  printing  the  data  the  program  loops  back  to  the  menu.  This  routine 
must  agree  with  the  data  collected  and  is  only  correct  for  the  SES  test  data. 
The  calculations  are  straightforward  and  should  be  easily  adjusted  for 
different  data. 


Sub-program  "Unpk56"  is  a  Hewlett-Packard  supplied  routine  for  decoding 
packed  data  from  the  3456A  Digital  Voltmeter.  Data  is  stored  on  disk  in  this 
packed  format. 

Sub-program  "Latlong"  decodes  the  data  string  from  the  Loran-C  and 
converts  it  into  x-y  coordinates  for  use  on  the  plotter.  If  the  data  cannot 
be  converted  it  is  ignored. 


!  ***  MAIN  PROGRAM  "SES" 


SO  ! 

90  ! 

100  ! 
no  ! 

120  ! 

ISO  ! 

140  ! 

150  ! 

160  ! 

170 

ISO 

190 

200 

210 

220 

nt 

230 

240 

250 

260 

270  File: 
280 
281 
290 
300 
310 
320 
330 
340 
350 

360  Cont: 


PRINTER  IS  3,28 
PRINT 
PRINT 

PRINT  " -r  This  program  was  designed  For  the  test" 

PRINT  "*  of  the  Be  11 -Hal  ter  110-  SES." 

PRINT  “*  It  uses  the  scanner,  3456  dvm,  the  disk  drive," 

PRINT  "*•  and  the  printer.  The  system  voltmeter  isn't  used." 

P  R I N  T  "  *  V  o  1  t  m  e  t  e  r  c  o  m  p  1  e  t  e  •=.  h  o  u  Id  be  ■:  o  n  n  e  c  t  e  d  t  o  e  x  t ,  in*:.  11 

PRINT 

PRINT  "*  Loran  C  should  be  connected  to  RS-232  interface  #11" 

PRINT  "#  Set  Loran  C  mode  14  to  999999" 

PRINT  “ #  Set  mode  15  to  monthxday  i.e.  0411  for  APRIL  11" 

PRINT  "*  Set  mode  12  to  1" 

PRINT  "*" 

PRINT  •"*  Turn  on  the  equipment  and  press  CONTINUE  when  ready." 
PRINT 

PAUSE 

OPTION  BASE  1 

C  0  M  S  c  n ,  B  v  m ,  S  v  m ,  0 1  r  1 , 0 1  r  2 ,  P  1 1  ,  P  r  t ,  X  m  i  n ,  'A  m  ax ,  V  m  i  n ,  V  m  ax ,  I N  T  E  G  £  R  F  i  1  c  u  u 

COM  T  i  me  S  <  1 :  1 0 , 0 :  4  >  C 1 6  ] ,  Sec  dat  S  <  1 0  >  C  960  ] ,  M  i  nd  at  %  <  1 0  )  i  23 ] 

COM  Posdat  5  < 0  :  50;  [290] ,  Di  gdat  *<;  10, 4)C12]  ,  Rpmdat  t  <  10, 60)  C  42] 

INPUT  "LOOK  AT  PREVIOUS  DATA  ONLY?", AS 

IF  AiC 1 , 1 ]<  >"Y"  THEN  Cont 

INPUT  "WHICH  FILE  < SESO l , SES20 . . > " , F i 1 e* 

ON  ERROR  GOTO  File 
PRINT  L I N < 1 ) , Fi 1 ef, LIN< t ) 

File  ount  ®VAL  <.  F  i  1  e*  C  4  j  2  ]  > 

OFF  ERROR 
No  1  or  an  =  0 

INPUT  "WAS  LORAN  USED?", AS 
IF  A* C 1 , 1 ] < > " Y "  THEN  No  1  or an= l 
CALL  D  at  an  1  <.  No  1  oran ) 

GOTO  End 
F i 1  count  =0 

PRINT  "Set  F r o n t  / E  ac k  s w  i 1  c h  o n  3456  D V M  to  F r o n t " 

BEEP 

DISP  "PUSH  CONTINUE  WHEN  READY" 

PAUSE 
CALL  Init 

SET  TIMEOUT  8:5000 

ON  I  NT  #8,5  G  0  SUB  Timout 

RESET  3 

OUTPUT  Bum : " TE 1 " 

ENTER  Dvm;  A 

IF  AO  100  THEN  Dvmerr 

OUTPUT  Dvm; " TEO" 

PRINT  "Voltmeter  p  as  =  id  s e  1  f  t  e s r. " 

OUTPUT  Sc n ; "ST  1 " 

ENTER  Sc n; AS 
IF  A*0"3E3"  THEN  Scnerr 
OUTPUT  Sen; "ST0“ 

PRINT  "Sc  an  net'  passed  s  e  1  f  t  e  s  t  " 

OUTPUT  Ctrl; "IN" 

OUTPUT  C t r 2 ; " I N " 

PRINT  "Counters  passed  selftest" 


530 
530 
6*00 
3  1 0 
320 
330 
340 
6*50 
330 
370 
330 
630 
700 
710 
720 
730 
740 
750 
730 
770 
730 
730 
SO0 
310 
320 
S30 
340 
350 
330 
370 
330 
390 
900 
910 
920 
930 
940 
950 
930 
970 
9S0 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1030 
1070 
1030 
1090 
1  100 
1110 
1120 
1130 
1  140 
1150 
1 130 


INPUT  "WILL  LOR AN  EE  USED?", A* 
IF  flitljiKJ-r  THEN  No  1  or  an®  1 
I F  No  I  or  an  THEM  3k i p 
DI3F  "INITIALIZE  PLOTTER" 
PLOTTER  IS  3,5, "9 3 7 2 A " 

BEEP 


I N  " 

0 P 3  CORNER  POINTS  OF  PLOT" 


left  LONG  <Beg, Mi n>" , Degl , Mi nl 
left  LAT  <  B  e  g  5  M  i  n  >  “  ,  D  e  g  2 , M i n  2 
r 1 ght  LONG  <  Deg , M i n > “ , DegS , M i n3 
right  LAT  < Beg, M i n > " , Beg4 , M i n4 


Skip: 

End: 

Bum err 


OUTPUT  Pit; 

WAIT  2000 
QISP  "ENTER 
LOCATE 
WAIT  2000 
INPUT  "Lower 
INPUT  "Lower 
INPUT  "Upper 
INPUT  "Upper 
Xmi naDeg 1 +H i n 1 /& 0 
Xmax*D*g3+M i n  3/30 
Ymi  naDeg2+Mi  n2'"30 
YmaxaDeg4+M  i  n 4  /  3  O 
CALL  Seat it  <No 1 oran> 

PRINT  "PROGRAM  COMPLETED" 
STOP 
PRINT 
PRINT 
PRINT 
PRINT 
BEEP 
STOP 
PRINT 


"3elfte.it  error  occurred  on  voltmeter, 
"Make  iure  3453  Bum  i i  on  and  nothing 
"connected  to  it*  input  terminals." 

"  R  u  n  t  h  i  =•  p  r  o  g  r  am  ag  a  i  n  t  o  r  e  c  h  e  c  k  . " 


Scnerrj  PRINT  "Selftest  error  occurred  on  scanner 
Index®NUM<AS> 

ON  Index  G03UB  Ermes 1 , Ermes2 « ErmesS 
PRINT  "Check  scanner  and  rerun  program  to 
BEEP 
STOP 

Ermeal:  PRINT  "Cross  guard  failure" 

RETURN 

Ermes2:  PRINT  "A/D  failure" 

RETURN 

ErmesSi  PRINT  "Timer  failure" 

RETURN 

Timout:  IF  NOT  TIME  0UT<3>  THEN  RETURN 

PRINT  "A  timeout  occurred  during  an  output 
BEEP 
RETURN 
END 


SUB  I n i t 

j 

COM  $c  n , Bum , Sum , C t  r l , C  t  r 2 , P ! t , Pr t 
DIM  Messaged C 24] 

INTEGER  Address 

!  INITIALIZE  DEVICE  ADDRESSES 


r  e  c  h  e  c  k 


or  enter  operat 


Comput er«321 

Scn»S09 

Dum=322 


!  SYSTEM  COMPUTER 
!  3 4 9 7 A  SCANNER  ADDRESS 

!  3453A  DIGITAL  VOLTMETER  ADDRESS 
!  3 4 3 7 A  SYSTEM  VOLTMETER  ADDRESS 


i  on 


B-4 


1170  Pr t =823 


1180 

1190 


Ctrl  =323 
Ctr2-324 


9876A  PRINTER 
5 -3  1 £ rl  COUmTER 
5316A  COUNTER 


ADDRESS 

No.  1  ADDRESS 

No.  2  ADDRESS 


1200  Pit =305 


9872B  PLOTTER  ADDRESS 


Bus*$cn  D IV  10O 
!  VERIFY  THAT  INTERFACE 


1220  !  VERIFY  THAT  INTERFACE  IS  HP-IB 

1230  READ  10  Bus,5;Signature  !  SIGNATURE  OF  93034A  HP-IB  INTERFACE 
1240  IF  BITCSi  gnature,  "NXOOKXXX"  >  THEN  Me  ss  age*® "  PRESENT  " 

1250  IF  NOT  BIT<Sign*ture,“KH80XXXX")  THEN  Message*®" HP-IB" 

1260  IF  B  I  T  <  S  i  gnature,  "XXl  1XXXX"  >  THEN  Hpib 

1270  OUTPUT  3,28  USING  10K,  K,  K,  K,  2-',  21K,  K"  j  "CAUTION:  INTERFACE  #"}Bus}  " 

S  NOT  "Message*:  "ABNORMAL.  TERMINATION  OF  PROGRAM." 

1230  BEEP 
1290  STOP 

1300  H  p  i  b  i  ABORT  1 0  Bus  !  INITIALIZES  INTERFACE  AND  BUS 

1310  RESET  Bus  !  SENDS  DEVICE  CLEAR  <DCL> 

1320  !  CHECK  FOR  EQUIPMENT  ON  BUS  AT  ALL  ADDRESSES  AND  PRINT  DEVICE  NAMES 
1330  OUTPUT  3,23  USING  25X,  K,  DD,  K,  ✓"  j  "  EQUIPMENT  PRESENT  ON  BUS  #"S,CHRS<  13: 
Bus | CHR*  < 123) 


INTERFACE 


INTERFACE  #" jBusj" 


1340 
1350 
1360 
1370 
1330 

1390  IF  Address =Comput. er  MOD  100  THEN  Message*®"9 

1400  IF  Addr«ss  =  Sc n  MOD  100' THEN  Message *  =  " 3497A 

1410  IF  Address=Dvm  MOD  108  THEN  Message*="3456A 

1420  IF  Address=3vm  MOD  100  THEN  Message*3 " 3 407 A 

1430  IF  flddr*ss=Prt  MOD  100  THEN  Message*3 "9876A 

1440  IF  Address=Ct r 1  MOD  100  THEN  Message*® " 53 1 6A 

1450  IF  Address*Ctr2  MOD  100  THEN  Message* ®"5316A 

1460  IF  Address *P 1 t  MOO  100  THEN  Message*® "9372B 

1470  OUTPUT  3,23  USING  Fmt  :  Message*?  Address 

1 4S0  Nxt : NEXT  Address 

1490  F  v.  t :  IMAGE  20X,24fl,"  at  address  ",2Z 
1500  SUBEND 
1510  ! 

1520  ! 

1530  ! 

1540  SUB  3  e  s  t  s  t  < N  o I o r  an ) 

1550  !  4  *  it  4  *  4  *  *  4  *  44  4  4  4  4  *  4  4  4  44  *  4  4  4  4  -it  4  4  4  4  4  4  4  *  4  4  ■*  4  4  4  4  4  4  *  4  4 

1560  !  THIS  IS  SUBPROGRAM  "Sestst"  WHICH  COLLECTS  DATA 

1570  !  44444444  4  444  444444  44  4  4  44  rr  44*  444  *  44444  44444  4  4  -  4  4  4 

1530  ! 

1590  OPTION  BASE  1 

1600  INTEGER  Pos  i  nd ,  Run  t  i  rue  ,  M  i  n  ,  $e  c 

1610  COM  Sc  n ,  Dvm ,  Sum ,  C  t  r  1 ,  Ct  r2 ,  P 1  t ,  Pr  t  ,  Km  i  n  ,  Kmax 

nt 

1620  COM  T i me* ( 4 > , Secdat * < 4 > , M i ndat * v 4 ) 

1630  COM  Posdat *< 4> , d i gd at *< 4> , Rpmdat *< 4 > 

1650  1  n  i  t  :  OVERLAP 

1660  ABORTIO  3 

1670  RESET  3 

1630  IF  No  lor  an  THEN  Skip 

1690  SCALE  X,m  i  r, ,  Km  ax  ,  Ym  i  n ,  Ym  a;; 

1700  RESET  11 

1710  Skip:  REMOTE  S 


FOR  Address®0  TO  30 

OUTPUT  Bus, Address  USING  "#"  ! 
STATUS  Bus ; A , A , A , Onbus  ! 
IF  NOT  BIT <Onous , 2 >  THEN  Nxt  ! 
Message*®"  Device  Unknown" 
IF  Address®Comput er  MOD  100  THEN 


ADDRESS  DEVICE  TO  LISTEN 

SEE  IF  IT  LISTENED 

BIT  2  TRUE  IF  DEVICE  PRESENT 


Mes sage*® " 93S5B  System  Computer" 
ge  *  = " 3 49 7 A  Mai n frame " 
ge*="3456A  Digital  Voltmeter" 
.ge*® "3437A  System  Voltmeter" 
,ge*="9376A  Printer" 
age**" 53 ISA  Counter  No.  1" 
age  * ® " 53 1 6A  Counter  No.  2" 
kge*® "  9372B  Plotter" 


SUB  3  e  s  t  s  t  < N  o 1 o  r  an ) 

THIS  IS  SUBPROGRAM  "Sestst"  WHICH  COLLECTS  DATA  FOR  THE  SES  TESTS 
OPTION  BASE  1 

INTEGER  Pos i nd , Runt i me , M i n , Se c 

COM  Sc  n ,  Dvm ,  Sum ,  C t r 1 ,  Ct r2 ,  P 1  t ,  Pr  t , Km i n , Km ax , Ym i n , Ymax ,  I NTEGER  F  i  1 


COM  T i me* ( 4  > , Secdat  *  <  4  > , m i ndat  *  <  4 ) 
COM  Posdat *  < 4  > , d i gd at  *  <  4  > , Rpmdat *  < 4  > 

OVERLAP 
ABORTIO  3 
RESET  3 

IF  No  lor  an  THEN  Skip 
SCALE  Xm  i  r, ,  Xmax  ,  Ym  i  n ,  Ym  ax 
RESET  11 
REMOTE  S 

OUTPUT  Sen: "S ISEOSD 1 T 10 " 


1730 

INPUT  "Do  you 

w  an  t  t  o  c  h  an  g  e  t  i  m  e  " ,  A  4 

1740 

IF  Rail,  1  3  < ; " 

Y  "  THE  N  K  e  e  p  r  i  rn  e 

1750 

A  4=  “  " 

1780 

PRINT  "Enter 

time  of  day  into  scanner  manually" 

1770 

BEEP 

1730 

PRINT  "Code  i 

4  :  S h  i  f  t  ,  T , D , M M  D  D  H  H  M M S  S , E  x sc" 

1790 

LOCAL  3 

1300 

DISP  "PUSH  CONTINUE  WHEN  READY “ 

1310 

PAUSE 

1328 

REMOTE  3 

1338 

K e e p  t  i  mes  OUTPUT  Du m ; 

“HT4Z0 1  STM  1ST  I . 05STDM0D 1 P 1 0 1SM0883O 1 

1340 

WAIT  1800 

1350 

LOCAL  LOCKOUT 

o 

1388 

Frntiwt : OUTPUT  Dym; “ 

SW  1 " 

1370 

ENTER  D  o  m ;  A  4 

1338 

1390 

1900 

1910 

1920 

1930 

1940 

1950 

19*50 

1970 

1980 

1990 

2000 

2010 

2820 

■2030 

2340 

2050 

2088 

2070 

2080 

2090 

2100 

2110 

2120 

2130 

2140 

2150 

2180 

2170 

2180 

2193 

2200 

2213 

2220 

2230 

2240 

2250 

2280 

2270 

2280 

2290 

23O0 

2310 


IF  A4="8"  THEM  Rearawt 
BEEP 

PRINT  11 F r ® n t *' R e  ar  s w  1  t •: h  Set  t o  f  r o n t  " 

PRINT  “Program  waiting  for  you  to  change  in." 

DISP  “PUSH  CONTINUE  WHEN  READY" 

PAUSE 

GOTO  Frntiwt 

Rearawt j INPUT  “How  long  is  teat  <1-1 0  m i n* > " , Runt i to* 

IF  < R u ru  i  m e >  1 0 >  0 R  < R u n t  i  m e <  1  >  THEN  R 4  at' a  w t. 

REDIM  T  i  me*<  1  j  Runt  i  me ,  0 :  4  >  ,  S e c  d  an  1  <  Punn  i  rn •=  > ,  M  i  n d  an  4  (Runt  i  me 
REDIM  D  i  gd.it  4  (Runt  i  m  e  ,  4  > ,  Rpoid.it  I  <  Runt  i  m  * ,  8  0 
IF  No  lor  an  THEN  Ready 
REDIM  Poid.it  «< 0:50 > 

Retry:  Poaind*0 

ON  I  NT  #11  GOTO  Lor  in ok 
DISP  “HAITI N G  ON  LORAN-C" 

ENTER  11  BINT  NOFORMAT  ;  Road  if  S  <,  O  .> 

CARD  ENABLE  11 
ENABLE 

Wait  is  GOTO  W.iitl 
Loranok : OFF  INT  #11 

PRINT  Po*dat«<3> 

CALL  Lat 1 ong  < Poa 1 nd , Road  it  a < *  > , 

.IF  Good  at  a  THEN  MOVE  Mxx.Yyy 
IF  NOT  Goodat a  THEN  Retry 
Ready:  PRINT  LIN(2) , "Program  atandtng 
PRINT  "PRESS  CONTINUE  TO  START 
BEEP 

DISP  "STANDING  BY  FOR  TEST" 

PAUSE 
ENABLE 

IF  NOT  No  1  or  an  THEN  GOSUE  Loranc 
ON  INT  #8  GOTO  Scnint 
CONTROL  MASK  3; 123 

I  4*4444444444444  4  44444  4 -*4  4  7  44  4  *4  44 
FOR  Min=*t  TO  Runtime 

M i  ndat 4  CM  i n ) » "  " 

SET  TIMEOUT  3: 1000 
OUTPUT  Sen; “ T D " 

ENTER  Sc  n  ;  T  i  rue  S  <.  Min,  0  > 

PRINT  “START  OF  TEST  MImUTE  “  ; M t ; “ 

OUTPUT  Sen? “ ARAF 1 AL4AC 1 AE 1 T I ISEO10" 

SecdatiCM i n>  =  " " 

FOR  Sec  =  1  TO  80 


L o o d at  a •  t\ x 


ryy  > 


b y  f  Of'  t  e s  t  “ 
TEST  ",  L  IN  <  2!' 


AT  "  ;  T  i  m  e  S  c  M  i  n  ,  8 


D-6 


232Q 

CARD  ENABLE  3 

2330  Uai t : 

GOTO  Mai t 

2340 

!  4*4*4*444444444444444«44-*44441r**# 

2350  Senint 

;  STATUS  SenjS 

2330 

IF  S*72  THEN  Conti 

2370 

G  0  S  U  B  T  i  m  o  u  t 

2330 

GOTO  Cont'3 

2390  Contis 

FOR  K=i  TO  4 

2400 

OUTPUT  D u m ;  " T 3 " 

2410 

ENTER  Dvr.t  NOFORMAT  j  Sdat  X 

2420 

Sec  dat  X  (.  M  i  n  ">  *Sec  dat  X  <  M  i  n  >  &Sdat  X 

2430 

NEXT  K 

2430 

IF  Sec  MOD  2*0  THEM 

2431 

OUTPUT  Ctrl; "IN" 

2432 

OUTPUT  Ctr2 ; " IN" 

2435 

ELSE 

2433 

OUTPUT  Ctrl ; " FN2" 

2437 

OUTPUT  Ctr2; "FN2" 

2433 

END  IF 

2439 

ENTER  C  t  r 1 ; R pm dat S < M i n ,  Sec  >  C  t ; 2 1 3 

2470 

ENTER  C t  r2 ;  Rpmdat  X  <  M  i  r. ,  Se  c  >  C  22 , 42  3 

2430 

IF  See  MOD  4*0  THEN  BEEP 

2490 

IF  Sec  MOD  15-0  THEN  Get  time 

2500 

GOTO  CorltS 

2510 

! 

2520  Get  time; OUTPUT  Scn;“TD" 

2530 

ENTER  Sen ; T i m e X  < M i n, Sec / 1 5  > 

2540 

PR  I  NT  T  i  meX  <  Min,  Sec  1 5  >  ,  "  STATUS  OK 

2550  ! 

OUTPUT  Sen; "DL 1 " 

2530  ! 

ENTER  Sc  n ;  D  i  gd  at  X  <■.  M  i  n ,  Sec  /IS) 

25  70 
2530 

2590 

2591 
2300 
2310 
2320 
2330 
2340 
2350 
2330 
2370 
2330 
2390 
2700 
2710 
2720 
2730 
2740 
2750 
2730 
2770 
2730 
2790 
2S0O 
2310 
2320 
2330 


Cont3:  NEX 
NEXT  Min 

OFF 


OUTPUT  Scn;"DL2" 

ENTER  ScnjDdataX 

D  i  gd  at  X  <  M  i  n ,  Sec  / 1 5  >  =  D  i  gd  at  X  \  M  i  n  ,  Sec  s  15  i'&Bdat  aX 
D i gdat  X  <  m  n , Sec / 1 5 )  = " 000000000000 " 

IF  Sec <30  THEN  Corn  3 

OUTPUT  Sen; »T I0AP.AF5AL 1 1 ACSAE  1" 

FOR  K*  l  TO  7 
OUTPUT  Dvwj "T3" 

ENTER  Dm  in  NOFORMAT ;  Mdat  X 
M 1  ndat  S  <  M  i  n  >  *M  i  nd  at  X  M  i  n  >  wMdat  x 
NEXT  K 
NEXT  Sec 


OFF  INT  #11 
OFF  INT  #3 
DISABLE 

OUTPUT  Sc n j "TD" 

ENTER  Sen; T  d  X 

PRINT  "END  OF  TEST  AT  " , TdX , L  I N <  1  > 
IF  NOT  No  lor  an  THEN  PEN  0 


COSUB  D i ik it 
BEEP 

INPUT  "Do  you 
IF  fl  X  C  l ,  1  3  =  "  V ' 
INPUT  "Do  you 
IF  AXC 1 . 1  3»"Y' 
SUBEXIT 


want  to  PRINT  data?", Ax 
THEN  CALL  D  at  an  1  <  No  1  or  an  > 
wish  to  take  mors  data",  AX 
THEN  In i t 


I  n cnt : 


2:350  Disk sts 


2370 

2330 

2330 

2300 

2310 

2920 

2930 

2940 

2950 

2960 

2970 

2980 

2990 

3000 

3010 

3020 

3038 

304O 

3050 

3860 

3070 

3O30 

3090 

3100 

3110 

3120 

3138 

3140 

3150 

3168 

3170 

3138 

3190 

3200 

3210 


!  SUBROUTINE  WHICH  STORE'S  DATA  ON  939' 
!  TWO  COPIES  OF  THE  DATA  ARE  RECORDED 
!  EACH  WITH  CHECK  READ  ENABLED 
SERIAL 

Flic  oun t  *F  i 1c oun t  +  1 


DISKS 


F  i  1*1!  =  "  SES  "  KVAL-t  <  File  oun  t  >  iu  "  :  H7 , 0  ,  O  " 

F  1  1  *  2  S  3  "  S  E  S  "  3,  V  A  L  *  <:  F  i  1  c  0  u  n  t  >  «  “  :  H  7 , 0 ,  1  " 

Po* i nd3Poa. i nd- 1 

IF  No  lor An  THEM  Posind-O 

ON  ERROR  GOTO  Errf 

Norerd3 1  NT  <  <Runt  i  w*#39 16  +  Posi  nd*2?5  >  '256  +  5 ') 
Try  sgns  CREATE  F i 1  *  1  $ , None rd 
CREATE  F i 1 *2* , Norerd 

PRINT  "FILENAME  IS  'SES" * F i  I  count j " '  " 

ASSIGN  #1  TO  Fi  Uli.Rer  O 
ASSIGN  #2  TO  FiM2#,R*tl 
IF  R* 1 0  OR  R*  t 1  THEN  FlUrr 
CHECK  READ  #1 
CHECK  READ  #2 
REDIM  Poidit  X  <  0 :  Poi  i  nd  "t 
PRINT  i 1 } Run t i m* , T i m* * < * > 

PRINT  »i|S«cd*t*<*> 

PRINT  il;HinditX<+> 

IF  NOT  No  lor  An  THEN  PRINT  »  1 ;  Po-A  1  nd  ,  PoAdAt  s 
PRINT  # 1 i D i gd At < < * > 

PRINT  ft  1 ;  RpmdAt A  <  *  .> ,  END 
PRINT  ft  1 J END 

PRINT  »2 j  Runt  i  m*  ,  T  i  m«*  <  *  > 

PRINT  ft2}  S*  edAt  S  <  *  > 

PRINT  §2; M i ndAt i <  * > 

IF  NOT  Hoi  or An  THEN  PRINT  #2 5 Poi i nd , Poid At i 
PRINT  »2|01gd*t«<4> 

PRINT  ft£  j  Kpmd  At  S  (. *  / 

PRINT  ft£  j END 
PROTECT  FI  UU,  "SES" 

PROTECT  FiW£*."SE3" 

ASSIGN  ftl  TO  * 


:  ount ; 


CHECK 

REDIM 

PRINT 

PRINT 

PRINT 


PRINT 

PRINT 

PRINT 

PRINT 

PRINT 


ft l ; P os i nd , PoAd&t $<*> 


PR  I  NT  #2 ; Po a i nd n  Po Ad  At 


3230 
3240 
3250 

3260  Err t'  i 
<  ERRN“54 ) 
3270 
3230 
3290 
3300 
3310 
3320 
3330 
3340 
3350  Cont5: 
3360 
3370 
3330 
3390 

3400  Cont. 
3410 
3420 
3430 


Cont  6 : 


.ASSIGN  #2  TO 
OFF  ERROR 
RETURN 
IF  <ERRM«SQ> 
THEN  ContS 
DISP  ERRM* 
WAIT  50O0 
PRINT  "ERROR 
BEEP 

INPUT  "DO  YOU 
IF  ASCI,  1  ] 3 " V 
PRINT  "DATA  F 
RETURN 

::  IF  ERRNOSO  T 
PRINT  "Deer  o 
BEEP 
PAUSE 

GOTO  R*p*at 
I:  IF  ESRNOS3  7 
PRINT  " M •? d  i  A 
BEEP 
PAUSE 


C  ERR  N 3  3  3 > 


< EPRN385 > 


<  ERRN»i! 


'•  £  R  R  N  3  6  4  > 


MAY  BE  RECOVERABLE" 

U  WANT  TO  CONTINUE  <' 

V"  THEN  Redo 

FROM  THIS  RUN  LOST" 


N  )  "  ,  AJf 


THEN  Con  to 
o  p  <e  n  ,  c  h  >5'  c  k 


fj  u  i  Hi  c  o  n  t  i  n  u  z  1 


THEN  Con t  7 
writ 4  proticud, 


c  o  r  r  s  • 


c  o  n  t  i  n  u  *  " 


B-8 


i 

A 


I 


'l 


3440  la  0  T  0  R  e  p  e  &  t 

3450  Coni"!  IF  ERR Ml >85  THEM  CcntS 

34^0  PRINT  "Not.  i  n  i  t  i  *1  i  ze  d ,  i  riitft  i  n  i  t.  i  a!  i  ;e  d  disk  and  push  com  i 

3470  BEEP 

3430  PAUSE 

3430  GOTO  Repeat 

3500  Cent  3:  IF  ERRN039  THEN  Cont9 

3310  PRINT  "Check  read  error,  try  a  new  disk,  push  continue  when  re 

3520  BEEP  ' 

3530  PAUSE 

3540  GOTO  Repeat 

3550  Cont9:  IF  ERRN054  THEN  ContiO 

35(50  PRINT  "Out  of  room  or.  disk" 

3570  PRINT  "Insert  a  new  pair  of  disks  and  push  continue" 

35S0  BEEP 

3590  PAUSE 

3(500  Cont  1 0  j  F i  1  court t*F i  1  count  + 1 

3S10  Pos i nd»Po* i nd+ 1 

3520  GOTO  Incnt 

3530  Rep*  at  j IF  ERRL**2SS0  THEN  £970 

3540  IF  ERRL-2370  THEN  £930 

3550  IF  ERRL>*3010  THEN  3130 

3550  IF  ERRL) *2950  THEN  3050 

3570  Redo:  ! 

3530  PURGE  Fi lei S 

3590  PURGE  Fil*2i 

3700  GOTO  Tryagn 

3710  Fi 1  err: IF  Rttl  THEN  Retrnl 

3720  ON  Ret O  GOTO  Err  1, Em  • 


3730  Retrn 1 : ON  R*tl  GOTO  Errl,Err£ 

3740  Errl:  PRINT  "File  could  not  be  found  on  disk" 

3750  Err2 :  GOTO  Redo 

3750  T i mout : IF  NOT  TIME  0UT<8;  THEM  RETURN 

3770  PRINT  "A  timeout  occurred  durina  an  output  or  enter  operation 

3730  PRINT  "THIS  HILL  RESULT  IN  LOSS ’ OF  SOME  DATA" 

3790  BEEF 

3300  RETURN 

3310  Loranc  :  CALL  Lat  1  one  <  Pos  i  nd .  Posdat  s  >'.*') ,  Good. at  a.  Kxx .  Vwu  > 

3320 
3330 
3340 
3S50 
3350 
3370 
3330 
3390 
3900 
3910 

3920  SUB 
3930 
3940 
3950 
3950 
3970 
39S0 
3990 
4000 
4010 
•*020 


.IF  Goodata  THEN  DRAM  Xx;< ,  Vyw 

Pos i nd*Pos i nd+ 1 

ON  INT  #11,7  GOSUB  Loranc 

ENTER  11  BINT  NOFORMAT j  Posd at X ' Pos i nd ) 

CARD  ENABLE  l 1 

RETURN 

SUBEND 


! 

Sat  an  1 < Ho  1  or  an > 

THIS  IS  SUBPROGRAM  "Datani"  WHICH  CONVERTS 
AND  PRINTS  DATA  FOP  3E3  TESTS 

THIS  PROGRAM  IS  A  CONTINUATION  OF  “Sesr-st "  AND 
RETURNS  TO  THAT  PROGRAM  WHEN  THROUGH 

OPTION  BASE  1 

INTEGER  Pos  i  nd,  Runt  i  rue  ,  T  i  rue 

COM  Sen,  Du m  ,  Sum ,  C  t  r  1  ,  C  r-  r  £  ,  P  i  t  ,  P»-  r.  ,  Nrn  i  n  ,  : •■Im  a;:' , 


n  u  e 


ady 


V m  i  n  ,  7 m  a;; ,  I N  T EG EP  r  i 


nt 

4030 

4040 

4050 

4060 

4070 

4030 

4090 

4100 

4110 

4120 

4130 

4140 

4150 

4160 

4170 

4130  Xndt 
4190 

4200  Skips 
4210 
4220 
4230 

4240  M  i  ri  i.i  : 

4250 

4260 

4270 

42130 

4290 

4300 

4310 

4320 

4330 

4340 

4350 

4360  Sec : 

4370  Overs 

4330 

4390 

4400 

4410 

4420 

4430 

LINE  FORCE' 
4440 


COM  T  i  me*  <  *  >  ,  Sec  d  it.  4  <  4  >  ,  M  i  rid  at  X  <  4  > 

COM  Posd  it  *  <  4  ■' ,  D  i  gd  at  s  <  4 ,  P  pud  »'■  4  <  -  ’ 

DIM  3* c d -at  <  2 40  > ,  M  i  n d  a t  < 7  • 

Fi  1  e*-  "3E3  “:«VflL4  <  F  \  1  count  >&" ;  H7" 

ASSIGN  41  TO  Fi 1*4. Pet , "SES" 

IF  Ret  THEN  FiUrr 
IF  TYP < 1 ) <  >5  THEN  Err  3 
READ  #  1 ;  Runt  i  fins' 

ON  END  #1  GOTO  Err3 
MAT  READ  4  1 5  T  i  nt  *  4  <  1 :  R  u  n  t  i  me  ,  0  s  4  / 

MAT  READ  4  1  j  Seedat  S< Runt  i  me  > 

MAT  READ  4  1  j  M i  ndat  4 < Run t  i  fins  "> 

IF  No  lor an  THEN  Skip 
IF  TYP < 1 X  >5  THEN  Err 3 
READ  4 1 } Pos i nd 

MAT  READ  4 1 5  Posdat  4 < 0  s  Poi  i  nd '•< 

MAT  READ  4  1 ;  D  i  gd  at  *<Runt  i  me  ,  4) 

MAT  READ  4  1 1  Rpmdat  4  <  Runt,  t  rus  ,  60  > 

OFF  END  41 

IF  TYP<1><>3  THEN  Err 3 

PRINT  LIN',  1 ),  "What  data  do  you  want  to  look  at?" 
PRINT  "  Analog  data  taken  each  sscond  *  1 

PRINT  "  Analog  data  taken  each  minute  =  2 

PRINT  "  P04 i t i on  data 

PRINT  "  Tonque  data  each  15  seconds  = 

PRINT  "  RAM  data  taken  each  second  = 

PRINT  "  N  o  n  e  ,  r  e » u  r  t  1 0  m  a  i  n  p  r  0  q  r  am  = 


PRINT  "  Pos i t i on  data  =  3" 

PRINT  "  Tonque  data  each  15  seconds  =  4" 

PRINT"  RP M  d a t  a  t.  ak  e n  e  ac h  * e c 0 n d  =  5" 

PRINT  "  None,  rsn.ifv  to  main  program  =  6",  LIN1 

INPUT  "ENTER  NUMBER  OF  YOUR  CHOICE", Code 
PRINT  Code  ;  "ENTERED" ,  LIN',  l> 

ON  ERROR  GOTO  Menu 

ON  Code  GOTO  Sec , M i n , Pos , Tor , Rpm , Ex i t 
OFF  ERROR 

I  Second  data  conversion 

INPUT  "ENTER  MINUTE  YOU  WANT  DATA  FOR", Tim? 

IF  < T i me >Runt i me )  OR  <Time<»0)  THEN  Over 
PRINT  "Minute" 5  Time 

PRINT  "DATA  FROM  " ; T i me* < T i me , 0 > j “  TO  " j T i me4 < T i me , 4 > 
CALL  Unpk  56  < Se  c  dat  4  <  T  1  me  ,' ,  Sec  d  at  (  *>  > 

PRINT  L1M<2>, “ANALOG  DATA  TAKEN  EACH  SECOND  ", L I H <1 ) 
PRINT  "YAM  ANGLE  YAW  RATE  RUDDER 


ANGLE 


pound 3 " , L I N  < 1 > 


PRINT  "  degrees 


degree s/sec 


degr  > 


4450 

4460 

4470 

4430 

4490 

t  <4*I+4> 

4500 

4510 

4520  Mins 

4530  Overt 

4540 

4550 

4560 

4570 


DEG 

FOR  I*0  TO  59 

Aa*-4 . 237 *Sec  dat  <  4* I +3>  +  1 9 . 499 

Rang  I  e  a2* ACS  <  3QR  <  <  1 9+ A  a/  2  >  *  <  1 9-  A. a/ 2  >  /'  336) ‘>—54.7? 

PRINT  Seedat  <4*1  +  1  :j  *35-.  46435, Sec dat <4*1 +2> *24-2. 6 1463 

NEXT  I 
GOTO  Menu 

!  Minute  data  conversion 

INPUT  "ENTER  MINUTE  YOU  WANT  DATA  FOR", Time 
IF  ( T i  me  >Runt  1  me  >  OR  <  T  i  m e =  0 >  THEN  Over! 

PRINT  "Minute"; Time 

PRINT  "DATA  FOR  "  ;  T  i  me*  <  T  i  me  ,  4 

CALL  Unpk  56  <  M  i  ndat  S  <  T  i  me  >  ,  M  i  nd  at  <  *  '<  ) 


3  ,  R  an  g  1  e  ,  3  e  c  d  a 


B— 10 


"  ;  Mi  ndat  1  >*2.  5;  "  psi  d" 

"  ;  M  i  n d -at  2  >  +  2 . 5  ;  "  pi  i  d  " 

"  ;  M  i  n d  at  <  3  *2 .  5 :  "  pi  i  d " 

" ;  M  i  ndat  -'4.^2. 5;  11  pi  i  d" 

" ;  M  i  rid  a*  <  5  >  *  1 0  0  ;  "  Degrees  re  1  at  i  ve  " 
" ;  Mi  r.d at  <6 >*20;  "  MPH" 

11 ;  M  i  ndat  <  7  >  *9 ;  "  D  e  g  r  e  e  s " 


+  530  PRINT  L IN-:'  2 >  , "ANALOG  DATA  TAKEN  EACH  M  I  NUTS " , L I N < 1 > 

+  590  P  R I M  T  "  C  u i  h  i  o n  p  r  e  i  i  u r  e  t-'  <■>  d  =  " ;  M  i  n  d  at  1  >  *  2 .  5 ;  "  p  s  i  d " 

+  600  PRINT  “Cushion  pressure  aft  =  "  ;  M  i  ndat  2  >  *2 . 5 ;  "  pi  id" 

+  610  .PRINT  "  Fitfd  seal  pressure  *  “  ;  M  i  nd  at  <.  3  *2 .  5 ;  "  psid" 

4629  PRINT  "Aft  seal  pressure  *  " ;  M  i  nd  at  ■'  4  >  *2 . 5 ;  "  psid" 

4630  PRINT  "Hind  direction  =  " ;  M  i  ridat  <  5  >  *  1 00  ;  "  Degrees  relative" 

4640  PRINT  "Wind  speed  =  " j Mi ndat <6>*20 j "  MPH" 

4650  PRINT  "Pitch  angle  =  " ; M i ndat < 7 > +9 ; "  Degrees" 

4660  ‘  GOTO  Menu 

4670  Poss  •  !  Position  data 

4680  IF  Moloran  THEN  Posinda0 

4690  PRINT  "A  total  of  "jPosind;"  position  data  points  were  taken" , LIN< 1 > 

4700  Pointsj INPUT  "FIRST  AND  LAST  POINT  OF  DATA" , F i rst , Last 
4710  IF  <Fi rst >Last >  OR  <Last >Pos l nd)  OR  <First<8>  THEN  Points 

4720  FOR  I=F i rst  TO  Last 

4730  PRINT  LIN<1>, "Position  point  no. " ; I , LIN< 1 > 

4740  PRINT  Posdat 4  <  I  > 

4750  NEXT  I 

4760  GOTO  Menu 

4770  To**:  !  Digital  data  conversion 

4730  0ver2:  INPUT  "ENTER  MINUTE  YOU  WANT  DATA  FOR", Time 
4730  IF  < T i melftunt i me >  OR  < T i m e <  *  0 >  THEN  0ver2 

4800  PRINT  "Minute"} Time 

4310  PRINT  “DATA  FROM  " } T i me $ < T i me , l > ; "  TO  " j T 1  me X < T i me , 4 > 

4320  PRINT  L  IN-.!  21- ,  "TORQUE  DATA  TAKEN  EVERY  15  SECONDS"  ,  L  INC  1  ) 

4330  PRINT  "  3TBD  TORQUE  PORT  TORQUE ",  L  I N  <.  1  > 

43+0  FOR  1*1  TO  4 

4? 50  PRINT  TAB-.'.  5>  ,  D  i  gd  at  S  <  T  i  me ,  I>  C  l }  6 1 ,  TAB <25  > ,  D  i  gdat  *  <  T  i  me  ,  IH  7  j  6  3 

4360  NEXT  I 

4370  GOTO  Menu 

4SS0  Rpm:  I  Rpm  data  conversion 

4S90  OverS:  INPUT  "ENTER  MINUTE  YOU  WANT  DATA  FOR", Time 

4900  IF  <T i me >Runt i me)  OR  <  T i me<  *0  >  THEN  0ver3 

4910  PRINT  "DATA  FROM  " } T i me* < T i me , 0 > } "  TO  " } T i me * < T i me , 4 > 

4920  PRINT  L  I N  <  2  > , "RPM  DATA  TAKEN  EACH  SECOND  ", L  I N <  1) 

4930  PRINT  "SHAFT  1  RPM " } TAB < 2 1 > } "  DELAY " } TAB < 40 >  j  "SHAFT  2  RPM " } TAB < 6  1  > } 


4710 

4720 

4730 

4740 

4750 

4760 

4770  To**: 

4730  Gver2i 

4730 

4300 

4310 

4320 

4330 

43+0 

4?  50 

4360 

4370 

4SS0  Rpm: 


4900 

4910 

4920 

4930 


DELAY " , L I N<  2  ? 


4931 

4940 

4941 

4960 

4961 

4962 

4963 

4964 

4965 
4970 

5000 

5001 
5010 

5020  ErrS 


Avgdel av l *Avgde 1 ay2*0 
FOR  1*1  TO  60 

ENTER  Rpmdat X <  T i me , I >  US  I NG  " ft , F " ; Rpm 1 . Rpm2 
IF  Rpmdat  *<Ti  me,  DC  1,  U*"F"  THEN 

PRINT  R  p  m  1  +  6  O }  T  A  B  4  0  >  }  R  p  m  2  *  6  O 

ELSE 

‘  PRINT  T  A  B  <  2  0  >  ;  R  p  m  1 ;  T  A  B  <  6  O  >  ;  R  p  m  2 
Avgde 1  ay  1 *Avgde 1  ay l +  Rpm l '30 
Avgde 1 ay2*Avode 1 ay2  +  Rpm2r'30 
END  IF 

NEXT  I 

PRINT  L I N  <  2  > , " Avg  de 1  ay" ; TAB t 20 > ; Avgde 1  ay  1 ; TAB (CO) ; Avgde 1  ay 2 
GOTO  Menu 


50L0  ErrS:  DI3P  "Incorrect  data  tvpe  found" 

5030  WAIT  3000 

5O40  SUBEXIT 

5050  FilerriQN  Ret  GOTO  Errl,Err2 

5060  Errlj  FRINT  "File  could  not  be  found  on  disk" 
5070  Err 2 :  PRINT  "RETURN  VARIABLE  *  ";Ret 
5030  Exit:  SUSEND 
5090  ! 

5100  ! 

5110  ! 


5120  SUB  U n p »•:  5 6  <  I  n S  ,  0 u t  ■'  *  >  >  !  9 8 3 5 ^ 4 5  RE V  .  hi  o / 2 3 / 3 0 

5130  ! 

5140  INTEGER  N , J , I , B 1 . B2 , B3, 84 
5150  N-LENC Inf) 

5 ISO  J-0  !  BO  THE  UNPACK 

5170  FOR  1=1  TO  N  STEP  4 
5 1  SO  J=J+1 
5 1  SO  B1=HUM<  In4>C  1 3  > 

5200  B2>NUM( In* C  1  +  1 3  > 

5210  B3«NUM<In*CI+23> 

5220  B4»NUN< InJC 1  +  3]  > 

•  5230  Out  <  J  >  =  .  1  *B  I T  <  B  1 , 0 >  * .  0  1  #SH  I  FT  <  *2 , 4 -r .  00  1  *B  1 N  A N B  <  B2  ,  1  5  >  +  .  000  1  *SH  I  FT  <  B3 , 4  >  + . 
0000 1  *B  I  HAND  < B  3 , 15)+. 00000 1 *SH I  FT  <  B4 , 4  >  + . 000000 1*81 HAND <  B4 ,  1 5 > 

5240  Out  <  J  >  “Out  <  J>  *<  1  -2*B  I T< B 1 , 1 >  > *  1 0* <  < 1 -2*B I T<8 1 , 7 >  >  *SH  I  FT  <  B  I  NANO  <  B  1 ,  1  24 > ,  2 > ) 

5250  NEXT  I 

3260  SUBENB 

5270  ! 

5230  ! 

5290  ! 

5300  SUB  L-at- 1  eng <  INTEGER  Poi i nd, Posdat $< *) , REAL  Good  at  a,  X,  Y> 

5310  !  ************.T**i1**,r:T  ********* 

5320  !  THIS  IS  SUBPROGRAM  “Lationg"  WHICH 

5330  !  CONVERTS  BATA  FROM  THE  LORAN-C  TO  NUMBERS  WHICH 

5340  !  CAN  BE  PLOTTEB. 

5350  !  THIS  PROGRAM  IS  CALLED  BY  SUBPROGRAM  "S*at*t" 

5360  !  AND  RETURNS  TO  THAT  PROGRAM  WHEN  BONE. 

5370  !  4  ********  *  *  *  *****  ***  * 

5330  ! 

5390  J-O 

5400  Good  at a= 1 

5410  FOR  1=50  TO  2S2 

5420  IF  Posdat  JS'CRca  i nd) C I j  3 3  =  “  POS I T  ION"  THEN  J=I+3 

5430  IF  J<>0  THEN  Corn 

5440  NEXT  I 

5450  Goodata=0 

5460  SUBEXIT 

5470  Cents  J1=0 

5430  FOR  1=0  TO  20 

5490  IF  <  Posdat  *  <  Pos  1  nd  >  C-J  + 1  $  13  >  =  "  0  “  >  AND  <  Posdat  J(  Poa  i  nd>  C  J+  1 5  1  ]  <  =  "  9"  )  T 


5430  FOR  1=0  TO  20 

5490  IF  < Posdat  S  <Pos  1  nd>  C-J  +  I  s  1  ]  >  =  "0“  >  AND  <  Posd-at  J(  Pos  i  nd>  C  J+  I  j  1  ]  <  =  "  9"  )  T 

HEN  J1=I+J 

5500  IF  JiOO  THEN  Conti 

5510  NEXT  I 

5320  Goodat-a=0 

3330  SUBEXIT 

3340  Contis  K= J 1 

5550  GOSUB  Chsekval 

5560  IF  NOT  Goodat a  THEN  SUBEXIT 

5570  Y»VAL< Posdat  t  <  Pos  i  no)  CK;  2  3 >  +7AL  <  Posd-at  *>'Pos  i  nd  >  CK+3 : 5  3  >.'60 

3530  J2»0 

5590  FOR  1=0  TO  20 

5600  IF  Posdat  SCPos  i  nd>  CJ  1  *  I  s  1  3  =  "N"  THEN  -J2  =  I*-J1 

3610  IF  J2<>0  THEN  Cont2 

3620  NEXT  I 

5630  Coodata=0 

3640  SUBEXIT 

3630  Cent 2s  J  3  =  0 

5660  FOR  1=0  TO  20 

5*70  IF  <  Posdat  S  <  Po 3  i  nd  ;•  C  J2*  I  ;  1 3  ;••=  •'  O  •'  'i  AND  Posd  at  s •  Pos  1  nd '  C  J  ?  +  I  :  1 3  ■  = "  '=• "  n 

THEN  J 3  =  I  +■  J 2  "  *  ' 


B  - 1 2 


5630 

IF  J 3 <  > 0  THEM  Com 3 

5690 

NEXT  I 

570O 

Good  at  a=0 

5710 

SUBEXIT 

5720 

Corit  3:  K=J3 

5730 

GOSUB  Chscku al 

5740 

IF  MOT  Good  at  a  THEM  SUBEXIT 

5750 

X  *  V  fl  L  <  P  o  a  d  a  t  *  P  o  a  i  n  a  '■>  C  K ;  2  ] .'  +  V  ft  L  <  P  o  a  d  a  t  s  ( P  o  a  i  ft  d>  C  K  +  3  ;  5  3  >  /  6 

5760 

SUBEXIT 

5770 

Chackual  sGoodat  a=L 

5730 

OH  ERROR  GOTO  Badat  a 

5790 

Dummy =VflL  <  Poadat  * < Poa i nd>  CK ; 2 ] > 

5800 

Dummy “VftL  <  Poadat  J-<Posind>CK+3;53) 

53  k  0 

RETURN 

5320 

Badat  a: OFF  ERROR 

5330 

Coodata=0 

5840 

IF  ERRM032  THEM  Error 

5350 

RETURN 

5360 

Error:  DISP  "EF'Rf'U" 

5370 

WRIT  400O 

5830 

RETURN 

5390 

SUBEMD 

COMMENTS  ON  PROGRAM  "ZIGZAG'* 


This  progrm  was  used  to  read  yaw  angle  and  rudder  angle  data  from  a 
floppy  disk.  It  reads  the  data  in  the  format  used  by  the  main  test  program 
SES  to  store  it  during  the  test. 

The  ZIGZAG  program  converts  this  data  to  the  proper  x,y  coordinate  form 
and  stores  three  curves  in  file  PLTDAT  for  use  by  the  PLOTER  program.  These 
three  curves  in  order  are  yaw  angle  vs.  time,  rudder  angle  vs.  time,  and 
displacement  from  base  course  vs.  time.  This  latter  curve  is  stored  for  only 
the  first  120  seconds. 

The  program  also  calculates  and  prints  the  predicted  latitude  and 
longitude  coordinates  which  result  from  moving  in  increments  along  the  curve 
and  calculating  the  next  point  based  on  speed'  and  heading  angle.  Since  the 
speed  of  the  vessel  changes  in  a  turn,  a  factor,  K-|  in  line  920  is  provided 
as  a  multiplier  for  ship  speed.  This  factor  can  be  used  to  adjust  predicted 
latitude-longitude  coordinates  to  agree  with  the  actual  values  measured.  This 
is  necessary  to  generate  an  accurate  displacement  off  the  base  course  also. 

The  rudder  angle  calculation  in  lines  490-500  depends  on  the  test 
configuration  of  the  transducer.  See  Appendix  E  for  a  further  discussion. 

The  program  uses  the  first  time  (after  20  seconds)  that  the  rudder  angle 
exceeds  5  degrees  as  the  execute  time.  Until  this  time  the  displacement  off 
the  base  course  is  held  at  zero. 

The  yaw  angle  is  averaged  for  an  integral  number  of  periods  beginning 
with  the  first  zero  crossing  after  60  seconds  and  running  to  the  last  full 
period  prior  to  the  end  of  the  data. 

The  scale  for  displacement  off  the  base  course  is  expanded  by  20  times. 
Therefore  the  plotted  values  can  be  displayed  on  the  same  scale  as  the  yaw  and 
rudder  angle.  For  an  angle  scale  running  from  -30  degrees  to  +30  degrees  the 
displacement  value  scale  should  run  from  -1.5  to  +1.5  ship  lengths. 


10 


!  ***  MAIN  PROGRAM  "ZIGZAG" 


20  ! 

30  PRINTER  IS  3,23 

40  OPTION  BASE  l 


50  COM  P  r  t ,  INTEGER  File  o  u  n  t 

SO  COM  T  i  m e  $  <  1  :  1  0 , 0 :  4  >  C  1 6  3 ,  S e >:  d  at  X  <  1 0  >  C  9 6 3  ] 

70  P  r  t  *  3  2  3 

SO  F  i  1  •£•  s  INPUT  "WHICH  FILE  (SESO  1  ,  SES20  .  .  >  “  ,  F  i  1  *  S 

90  ON  ERROR  GOTO  File 

100  Fi  1  count *VAL< F i  l-elC4j  23 ) 

110  OFF  ERROR 

120  Ho  lor  an* 1 

130  CALL  Dat  an  1  < N o  1  o r  an ) 

140  END 

150  !  *#  *4  if  *  4  ***■»  «r  ***  4"jr  *■#"*  •*  **•£*■?■•»■**■**  —  # 

ISO  ! 

170  ! 

130  ! 


1 9  0  SUB  D  a t  an  1  <  N o  1  o r  an  > 

20O  ! 

210  OPTION  BASE  1 

220  INTEGER  Poi  i  nd,  Runt  i  me  ,  T  i  ■■  ,  L  at ,  Long,  T  1  ,  T2,  Nm 

230  COM  Prt, INTEGER  Fi  I  count 

240  COM  Ti  *> ,  Secd-at  s(.  *  ) 

250  DIM  Se  e  d .at  <  2 4 O  > ,  M  i  n id  a t  <  6  > 

260  D I M  Sdat  1  <  600  >  ,  Sdat  3 (  0 :  6O0  > 

270  DIM  Sdat 2(600) , Sdat 4 CO i 600 > 


290 

300 

310 

320 

330 

340 

353 

360 

370 

330 

390 

400 

410 

420 

430 

440 

450 

460 

470 

430 

+Sdat  1(1) 


Fi  1  **="SES":j.VAL*(Fi  1  count  >8,"  :  H7" 

ASSIGN  41  TO  Fi 1 «*, Ret , "SES" 

IF  Ret  THEN  Filerr 
N 1  =  0 

IF  TYP < 1 ) <  >5  THEN  Err 3 
READ  4 1 ; Runt j  me 

INPUT  “MINUTES  OF  DATA  TO  PLOT",  Nr, , 

IF  Mm>Runtim»  THEN  Nm*Runt i me 

IF  Nm<  *0  THEN  STOP 

Nopt  **Nm*60 

ON  END  41  GOTO  Err3 

MAT  READ  4  1 ; T i me  S ( 1 : R un t i me ,0:4) 

MAT  READ  4 1 j Sec d at  $ \ Runt i me ) 

DEG 

FOR  Min*t  TO  Runt i me- 1 

CALL  U  n  k  5  6  ( S  e  ■:  d  a  t  X  M  i  n ) ,  S  e  eda  t  ) 

FOR  Sec *0  TO  59 

I *<  M l n- 1  )460-rSec  +  l 

Sdat 1(1) *Sec d  at < 4*Sec  1 ) *  35 

IF  <ABS(Sd.at  l  (  1 )  )  >90)  AND  < Sdat  1  <  I  > O  > 


THEN 


490 

50O 

.  643 

510 

520 

530 

540 

550 

560 

S70 


Aa*-6 .791 637-Sec dat 
Sdat 2 ( I ) *2*AC3 ( SOR ( 


4*Sec  +-3.J  +  19. 970 

19.2?  +  A.a/-2)4<  1 9 . 2  5  -  A  a.-'  2 


NEXT  Sec 
NEXT  Min 
PURGE  "PLTDAT" 

CREATE  “PLTDAT" ,  150 
ASSIGN  <*2  TO  "PLTDAT" 
PRINT  42 ; Nopt  a 
Aug*Sdat  1(1.' 


S  d  a  t  1  (  I  >  *  3  6  0 

■•■'340 . 3  1  )  )  -50 


530  FOR  1=1  TO  Nopts 

590  3d. at  1  <  I  >  *3dat  1  I )  -Hug 

600  NEXT  I 

610  FOR  1=60  TO  h opt s 

620  I F  SON  <  3d  at  1  <  I  >  >  <  >3GN  3d  at.  1  a  -  1  >  '  THEM 

630  T 1 = I 

640  GOTO  Next 

650  END  IF 

660  NEXT  I 

670  Next;  J*0 

630  FOR  I  =  T 1  +- 1  TO  Nopts 

690  IF  SGN<3dat  1  U  >  X  >SGN< Sdat  l  <  1-1  >  >  THEM  .J*J+1 

700  IF  J  MOD  2  =  0  THEN  T£=»I  j 

710  NEXT  I  i 

720  Hvg*0  ! 

730  N;<t :  FOR  I  =T  1  TO  T2 

740  Hug*Rug+$d  at.  1  <  I  > 

750  NEXT  I 

760  flygsflyg/ <  T2-T  1  ’> 

770  FOR  I=t  TO  Nopts 

730  Sdat  1  <  I  ) »Sd  at  1  I  >  —  R*..' >q 

730  PRINT  #2; I , Sdat 1 < I > 

300  NEXT  I 

310  PRINT  #2 j Nopts 

320  FOR  I»1  TO  Nopts 

330  PRINT  #2  $  1 , 3d  at  2(1 > 

340  NEXT  I 

330  Nl-120 

360  PRINT  #2;N1 

370  INPUT  “Speed  in  Kt.  3",  Speed 

330  Speerd*Sp**d*l .639  !  FT/SEC 

390  Sdat  3  <  0 ) *3d  at  4  < 0  >  =  0 

300  INPUT  “SHIP  LENGTH  Ft Length 

310  L*n*Length/20  I  Scale  for  V/Loa  l -'20  Scale  for  angles 

920  K* 1 

930  Dispma;<*0 

940  Dispmin»0 

930  1*1 

960  ..  REPENT 

970  Sdat  3 < I >  =0 

980  Sdat 4 < I > »Sdat 4< I  - 1 ) +i pe ed *K 

990  IF  I <  =  1 20  THEM  PRINT  #1 ;  I , 3d  at  3 f I > 

1000  1*1+1 

1010  UNTIL  (RES  (Sdat  2  <  I  >  ;■  ;  5  >  HMD  <I/20> 

1020  TO* I -  1 

1030  REPENT 

1040  Sdat 3 < I > *5dat 3 < I  - 1 >  +S peed *3  I N < Sd at L  < I > > 

1050  sdat  4  •,  I  >  *3dat  4  I  -  1  >  f  Spee  d*C03  (  Sdat  1  <  I )  >  * K 

1060  IF  Sdat  3<  I )  >D  1  spfrtax  THEM  D i  s p m ax  =  S' d at 3 c;  I 

1 0 1  0  IF  Sdat  3 <.  I  > -I  B  1  spfti  i  n  THEM  D  t  s p nt  i  n * S d a t  S' '■  I 

1030  IF  I  <  *  1 20  THEN  PRINT  *2 ;  I  ,  Sdat  3  I .<  -  Len 

1090  1*1+1 

1100  UNTIL  I  >Nopt s 

1110  INPUT  "Initial  Lat-Long  Deo -M 1  n  "  ,  L  at  d  .  L  at  ;a  ,  Lonqd  .  Longm 

1120  INPUT  "Base  Course  Deg", Course 

1130  Lat  0*Lat  d+L  at  ro.'SO 

1140  ract=CO$(LatO> 

1150  PRINT  PNGc,"Tifi\e  Latitude  Long  i  t  ude  “  ,  L I 

M  v  1 


B  - 1 3 


1130 

FOR  1=1  TO  Nopts 

1  170 

B  *5 1  a = C  o  u  r  s  ■*  -  A  T  N  (  S  d  -a  1 3  I  >  ?  S  d  -a  t  4  < 

use 

L  =  S  d  a  t  4  I  )  ij  C ...  r  s  *  -  £  •=  *  a 

1  130 

L  at  a  c.  L  at  m+L  4 COS  <  £-:»■  a ■ ' 8 0 7 S  "•  +  l 00 

1200 

L  o  n  g  =  t  L  *  n  g  m  -  L  -  2  I  H  <,  £  a  *■  a  )  •••  F  ac  t  +  3 

1210 

IF  L at >6000  THEN 

1220 

Latd=L  at  d+Lat  DIV  3d  00 

1230 

Lat=Lat  MOD  30 OO 

1240 

L  at  m=L  at  m-80 

1250 

END  IF 

1230 

IF  Long>6000  T'~N 

1270 

L o n gd  =  L o Cij,  j+Lo n g  D  I V  8 0 0 0 

1  2S0 

Long=Long  MOD  8000 

1230 

Long  m  =  L  o  n  q m - 8 0 

1300 

END  IF 

1310 

M i nus ! 

IF  Lat  <0  THEN 

1320 

L  at  d=Lat  d  - 1 

1330 

L  at  =L  at  +3000 

1340 

L  at  m=Lat  m  +  30 

1350 

GOTO  Minus 

1330 

END  IF 

1370 

M  i  n  u  3  1 J 

IF  Long< 0  THEN 

1380 

Longd=Longd- 1 

1380 

L  o  n  g  =  L  o  n  g  +  8  O  0  0 

1400 

Long  m  =  L  o n  g  m  +  8 0 

1410 

GOTO  M i nus 1 

1420 

END  IF 

1430 

L  at  m  1  =L.at  /  1 00 

1440 

Lonqm 1 =Long/ 1 00 

1450 

IF  I  MOD  4=0  THEM  PRINT  I , L at d : 

1430 

NEXT  I 

1470 

P R  I N T  LI N <  1  >  ,  " M -a  : i  m u m  D  i  s p  1  ac  * m >5  n t 

t  a" j  D i 3pm i n 

1430 

1430 

1500  Err.?  i 

1510 

1520 


PRINT  L IN< 1 ) , "EXECUTE  TIME  IS  "}T0 
SUBEXIT 

D  13  P  "Inc  o  r  r  ■=  c  t  d  -a  t  a  t  y  p  *  f  o  un  d " ; 

WAIT  3000 

SUBEXIT 


1530  Pi  1  err:..  OH  R*t  GOTO  Errt,Err2 


1540  Err  1 :  PR 

1550  E r r £ :  PR 

1530  Exits  SUBEND 
1570  i 
1 5S0  ! 

1530  ! 

1300  SUB  U rip 
1310  ! 

1320  INTEGER  N , J ,  I  , B 1 , B2 , B3 , B 4 

1330  N=LEN< In*' 

1540  J-0  !  DO  THE  UNPACK 

1350  FOR  1  =  1  TO  N  STEP  4 

1  330  J  =  J+  1 

1370  Bi=NUM(  ■  nf  C  I  3 

13S0  S2*NUM<  InfC  I  1 3  > 

1330  33»NUM< Inf C 1+23 > 

1700  34»NUM< Inf C 1+33 > 

1710  Out  <  J>  =  .  1  +  B  I  T  (  B  1 , 0  j  +  .  0  l  +SH  I  r  T  32 ,  -a  +  .  00  1  tJ  I HAND  <  32  ,  1  5  >  +  .  000  1  + 

SHIFT  (33,  4  '  + .  0000 1+3 1  HAND <  B 3  ,  1  5  '  + .  000001  -SH  I  F T  ■.  £-i .  4  .■  +  .  0 0 0 0 0 0  1  -  2  I M  A  N  D  t.  3  4  ,  15  > 

1  >  00  Out  (  J  >  =Out  ■>  J  >  +  <  1  -2~3  I  7  ■  S  1  ,  i  +  1  O  '  ; 1  -2  +  2  I  T  ■  2  L  ,  7  >  >  -.  SH  I R  T  1  3  I N  AN 


PRINT  "File  could  not  b •=  found  on  disk" 
PRINT  "RETURN  VARIABLE  =  “jRet 


SUB  Unpk  53 Inf  ,  Ou  t  (  *  >  > 


3  S  3  5  <■"  4  5  REV.  A  3/23^80 


!  DO  THE  UNPACK 
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COMMENTS  ON  PROGRAM  "PLOTER 


This  is  a  general  purpose  rectangular  coordinate  plotting  routine 
developed  by  LCOR  GOODWIN  at  the  R&D  Center.  It  can  be  used  to  plot  data 
entered  from  the  keyboard  of  the  computer  or  from  a  stored  data  file,  PLTDAT, 
stored  as: 


No.  of  Points 

x  ,  y  One  (x,y)  pair  must  be 

x  ,  y  included  for  each  of  the 

x  ,  y  number  of  points  specified 

This  file  must  be  named  "PLTDAT"  and  must  be  on  mass  storage  unit  : H 7 
which  is  a  floppy  di sk . 

The  limits  of  the  plotting  area  and  other  information  are  requested  of 
the  user  as  the  program  proceeds.  An  information  block  can  be  positioned  in 
any  of  the  four  corners  of  the  plot  or  be  left  out.  Two  lines  of  title  are 
allowed.  The  vertical  axis  can  be  positioned  on  the  right,  in  the  middle,  on 
the  left  or  on  both  sides  of  the  plot. 
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THIS  IS  PROGRAM  " P L 0 T E R " ,  A  GENERAL  RECTANGULAR 
COORDINATE  PLOTTING  ROUTINE  FOR  X  AND  Y  VALUES. 
UP  TO  5  CURVES  CAM  EE  PLOTTED  ON  ONE  GRAPH. 


***  MAIN  P R 0 G RAM  *** 

C  0  M  X  m  i  n  ,  X  m  ax  ,  Y  m  i  n V  m  a:  •: ,  X  s  t  e  p  u  r,  i  f-  ,  Y  s  t  z  p  u  n  i  t  ,  X  s  t  e  p  ,  Y  s  t e  p ,  A  S 
DIM  L  i  ne  i  d<  5  > ,  L  i  nesyml  5 ')  C  1  ] 


Plotter=305 

d  PLOTTER  IS  8,5. “ 9372A " 

120  DISP  "Put  paper  on  plotter,  PUSH  CONT" 

130  PAUSE 

140  LIMIT  0,279.5,0,216 

150  LINE  TYPE  4,4 

16*0  FRAME!  3.5  X  11  CUT  LINE 

170  LINE  TYPE  1 

130  LIMIT  25,255,25, ISO!  Sets  plotting  area  limit* 

190  FRAME !  Out  1  i n«  t  he  p 1 ot  t i ng  ar ea 

200  FRAME 

210  LOCATE  22,117,12,35!  Set.  scaling  limits  for  plot 

220  CLIP  21, 113, 11,36 

230  CALL  Axes 

240  CALL  L  ab  e  1  _ t  i  c  k  s 

250  CALL  Label  axes < AS) 

260  CALL  Title”* 

270  CALL  I  nfo  b  I  oc  k  <  Li  ne  i  d  <  4  >  ,  Hum  1  i  nes  ,  Symbo  1  s ,  L  i  ne  symS  <  *  > ,  Bare  ht  "> 

271  CLIP  22, ll7, 12,35 

230  Repeat: INPUT  "DATA  FROM  <F!LE>  OR  < KEY BSD > "  ,  BS 
290  IF  <BSO"FILE")  AND  < B S <  )  " K £ Y B  X  D  "  >  THEN  Repeat 

SCO  IF  Ss® "  FILE"  THEN  CALL  Dat  if  i  1  e  <  L  i  ne  i  0  <  *  )  ,  Hum  1  i  nes ,  Symbo  1$ ,  L  i  nes 

310  IF  BS®  "KEYBRD  "  THEM  CALL  D  at  ae  n  t.  r  y  <  L i ne  i  d  <  *■ ,  N  u  m  1  i  n  e  s ,  3  y  m  b  o is , L i 

*> , Barcht  ) 

320  INPUT  "Do  you  want  to  label  p  I  ot  ?"  ,  BS 

330  IF  B  S  C 1 , l ] a " Y "  THEN  CALL  Labels 

340  PEN  0 

350  OUTPUT  Plotter? "IN" 

360  END 

370  •! 

330  SUB  Axes 


y  rn  S  (  4  >  > 
n  e  s  y  m  s  < 


360  EMI 

370 

330  SU1 

390 

400 

410 

420 

430 

440 

450 

460 

470  Rtax i s : 

430 

490 

500  Ct.  ax  i  s  : 
510 


COM  Xm  i  n ,  Xm  ax ,  Ym  i  n ,  Vm  a:-;,  Xs*  epun  i  t ,  Ys  t  z  pur  i  t  ,  Xs  t  ep  ,  Ys  t  ep ,  A: 

AS="LEFT" 

INPUT  "DUAL  VERT.  AXES  DESIRED?", Bs 
IF  BSC  1 , 1 K >"Y"  THEN  Rtax is 
AS® "BOTH" 

GOTO  Hew  1 i m i t  s 

INPUT  "RIGHT  HAND  AXES  DESIRED", BS 
IF  BSC  l,  l ]  =  "Y"  THEN  AS  =  "R IGHT" 

IF  AS®" R IGHT"  THEN  Newlimits 
INPUT  "CENTER  AXES  DESIRED" , B S 
IF  BSC1,1:®"Y"  THEN  AS® " CENT ER " 


520  ! 

530  New  1  i  m  i  t  s :  I NPUT  "Min  'X'  coord  i  n-at  e  ",  Xm  i  n 

540  INPUT"  Max  •'  X  '  coord  i  n  at  e " ,  Xmax 

550  I N  P  U  T  "Min  '  Y  c  o  o  r  d  i  n  at  e  "  ,  Y  m  i  n 

560  INPUT  " Max  **  Y  ■'  c cord i  rat  e  " ,  Ym  ax 

570  CALL  Check  limits^ Error , Xm i r , Xmax , Ym i r , Ymax > 
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330 
333  ! 

(500 

610 

620 

630 

640  Ylim: 

650 

660 

670 

630  Dit'f: 
690 
700 
710 

720  Loopx: 


IF  Error >0  THEN  Hew  limit* 


L  i  m3Xrn  i  n 


!  T  h  i  S  P  an  t  O  f  r-  h  •=  p  r*  1 


IF  L  i  m  =  0  THEN  Y 1  :  :.t  !  th*  min  and  max  1  i  m  i  t  s  of 


mod  i  f  i  i  s 
t  h  * 


GOSUB  Int  i^ir_r»l  !  ax*. 
X»  i  n  =  L  i  m 
L  i  M  *  Y  m  i  ri 

IF  L  i  m  = 0  THEN  Dit'f 
GOSUB  Int  eg*  r'__v  al 
Ym i n*L i m 
L  i  maXmax-Xm  i  n 
GOSUB  I nt *>3*rwoa1 
X»Xm i n  +  L  i m 

IF  X >=Xmax  THE N  C o r r * >: t x 
X=X  + I x 1 0 

IF  X<Xmax  THEM  Loop* 


t  o  r  a  n  s  at  pi  o 


740  Corrects:  Xmax=X 


758 

Li  m»Ymax-Ym i n 

760 

GOSUB  Int  eg* r_oal 

770 

Y»Ym i n+L i m 

730 

IF  Y >=Vmax  THEN  Correcty 

790  Loopy: 

Y*Y  +  I  /  1 0 

300 

IF  Y< Ymax  THEN  Loopy 

310  Correcty: 

Y  m  ax = Y 

320 

X  d  i  f  t'  =  X  m  ax  -  X  m  i  n 

830 

- 

Yd  i  f  t'=Ymax-Ym  i  n 

S40 

SCALE  X m  in,!! m ax  ,  Y m  i  n ,  Y , :i ax 

330 

IF  <  S GH < X m i  n >  =  S G H ••! X m ax >  '■>  0 ft  ( A m  i  n  =  © 0 ft 

S60 

CALL  Int  a  t  ep  <  Xd  i  t't' ,  X*  t  *p  ,  Xst  spun  i  t 

370 

ELSE 

S30 

CALL  Int st *p < Xm ax , Xs 1 , Xsu 1 > 

890 

CALL  I  nt st  «p <  -Xm  i  n ,  Xs2 ,  Nsu2!> 

900 

Xst  *p=M IN <  Xs 1 , X  s  2  > 

910 

Xst  spun i t =  Xsu 1 

920 

IF  Xstep=Xs2  THEN  Xs.t  spun  i  t  =  Xsu2 

930 

END  IF 

940 

IF  < 3 G 1 1  •!  Y [a  i  n  !>  =  S G N  <!  Y m ax l1 )  0 R  Y m  i  n  =  0 1)  0 R 

950 

CALL  IntsWpCYdi  t't' ,  Ys  t  ep ,  Yst  *  pun  i  t 

960 

ELSE 

970 

CALL  I  n  t  s  t  e  p  Y  m  ax ,  V  a  1 ,  Y  s  u  1  > 

9S0 

CALL  I  nt  at  •=  p<  -  Ym  i  n,  Ys2,  Ysu2 / 

990 

Yst*p«MIN<Y*l,Y*2> 

1000 

Ystepun i t  =  Ysu 1 

1010 

IF  Yst  *p*Ys2  THEN  Yst *  pun i t ■Yau2 

1020 

END  IF 

1030 

i 

1040 

IF  A$®" BOTH"  THEN  Sothaxss 

1050 

IF  A*3"RIGHT"  THEN  Rtaxs-s 

1060 

IF  AJ>*" CENTER “  THEM  Ctaxss 

1070 

L  f  ax  <r  s : 

AXES  Xs  t  op ,  Ys  t  # p  ,  Xm  i  n  ,  Ym  i  n 

1030 

SUBEXIT 

1090 

R  t  ax  e  s : 

AXES  Xst  s p , Yst ep , X m ax , Ym i n 

1100 

SUBEXIT 

1110 

Sot  haxc 

s : A X E 3  Xst#p,Yst*p, X min, Y m i n 

1120 

AXES  X  m  ax  -  X  m  l  n ,  Y  s  t  •»  p ,  !••!  m  ax  ,  Y  m  i  rt 

1130 

SUBEXIT 

1140 

C  t  ax  <r  s  : 

AXES  Xstep, Ystep, 0, 0 

1150 

SUBEXIT 

1160 

! 

(. X fi'i  ax 3 0 ')  THEN 


<  Y  m  ax  =  0  >  THEN 
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1170  Integer  val  :  !  SUBROUTINE 

1130  1=1 

1 1  30  3ign=.  i 

1200  IF  LiftKO  THEN  3ign  =  -.l 

1210  L  i  ft)  =  R  B  S  <.  L  i  ft  j 

1220  Ch*ck_s  i  =e:  IF  <Lift>=l>  HMD  L  i  ft  ■ 

1230  IF  L i  m >  1  THEN  Toots  ig 

1240  1=1/10 

1250  Lim=Lim*10 

1260  GOTO  Chec  k_  = i :e 

1270Toobig:  1=1*10 

1230  Lim=Lim/10 

1230  •  GOTO  Check  ». i  =e 

1300  Done i  IF  IMT<Li  r»T<  >Li  m  THEN 

1310  L i m= IHT( 10*L i m) *  I *S i on 


1  0  )  THE  N  D  o  n  e 


1320 

IF  SignCO  THEN  L  i  rn=L  i  ft+  I  ■ 

1330 

ELSE 

1340 

L  i  M  =  I N  T  <  1 0  *  L  i  ft  ’>  *  I  *  S  i  g  n 

1350 

END  IF 

1360 

RETURN 

1370 

SUBEND 

1330 

! 

1330 

SUB 

Chec k_J  i  ft  i  t  -a Error ,  X 1 ,  X2,  V  1 ,  Y2 

1400 

j 

1410 

Error=0 

1420 

IF  Y 2 > Y 1  THEN  Ydi fok 

1430 

DISP  "Y tn .ax  <  Y m  i  n  " 

1440 

WRIT  3000 

1450 

GOTO  Done 

1460 

Ydi fok  i 

IF  X2 >X 1  THEN  SUBEXIT 

1470 

DISP  "Ntnax  <  Xft i  n " 

1430 

WRIT  3000 

1430 

Done  i 

Errors  1 

1500 

SUBEND 

1510 

! 

1520 

SUB 

Intst.  ep<  D  i  f  f ,  S  t  e  p ,  St.  e  pun  t  t  > 

1530 

! 

1540 

1  =  1 

1550 

■  Step=Diff/10 

1560 

IF  IMT<3tep>>0  THEN  Bignum 

1570 

Loop  1 : 

1=1/10 

1530 

St*p=St«p* 10 

1530 

IF  INT<Step) =0  THEN  Loopl 

1600 

B i gnum : 

IF  I N T <  S  t  e  p  >  < 10  THEN  Cont 

1610 

Loop2 : 

1=10*1 

1620 

St  ep=S  t  ep/  1 0 

1630 

IF  INT <Step>  >= 10  THEN  Loop2 

1640 

Cont : 

Step=INT  <Step.) 

1650 

IF  < S t  e p  =  1  OR  ( S t  e p = 2 ;■  OF:  v. 5 

1660 

IF  Step=3  THEN  3tep=2 

1670 

IF  <Step  =  4,’  OR  t.'St. ep=6.r  OR  <:• 

1630 

IF  <Step=3)  OR  '.Step  =  3..'  THEN 

1630 

Ok  : 

St  epun i t  =3t ep 

1700 

St  *p  =  St  ep* I 

1710 

SUBEND 

1720 

| 

1730 

SUB 

Labe  1  _r.  i  ck  a 

1740 

i 

1750 

COM  Xm  i  n ,  X,v  a. : .  ,  Vft  .  X  = »  e  i 

;  l  g  n 


ep  =  5; 


ep  =  r'> 

.  t  e  p  =  1 0 


THEN  Ok 
THEN  Sr, 


:  fi  1  *  .  -i  2  r.  j  p  i..  n  ;  ». 
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1 


¥ 


ri 

1P- 


r- 


1763 

1773 

1733 

1733 

1333 

1313 

1320 

1333 

1343 

1353 

1330 

1870 

1330  Size: 

1393 

1903 

1910 

1920 

1930 

1940 

1950 

1980 

1970  StepSl: 
1930 

1993  Conti: 

2333 

2013 

2023 

2033 

2043  Next  : 
2050 
2060 
2070 
2033 
2093 
2103 
2113 
2123 
2133 
2140 
2150 
2160 
2173 
2130 
2193 

2200  Rt Axes: 

2210 

2223 

2230 

2240 

2250 

2260  Label : 

2270 

2230 

2290 

2300 

23  1 0 

2320  Step52: 
2330 

2340  Cent  2: 


SETGU 
UNCLIP 
MOVE  22.3.5 
SETUU 
WHERE  X,Y 

IF  fli< > " CENTER "  THEN  Size 

MOVE  X , 3 

SETGU 

WHERE  X , V 

MOVE  X.Y-3.5 

SETUU 

WHERE  X, Y 

CSIZE  3, .5 

LORG  4  - 

LOIR  0 

LABEL  USING  “K" j  Xmi n 

ui  m _ t  i  cks-INT  { *CX  m  ax  - ! '  m  i  n )  /  X  s  t  e  p ') 

IF  X3t  epun  i  t  =5  THEN  StepS 1 
Hum_l  abe  1  s=Num_t  i  c  k  =  D  I V  5 
St  ep=Xst epf 5 
GOTO  Co rit  1 

Nurull  abe  I  s  =  Hum__t  i k  s  D  I  V  2 
St*p=Xst*p*2  "~ 

FOR  J«  1  TO  Hum  labels 
SETUU 

MOVE  X  J  *  3 1  *  p ,  Y 

IF  <A*="CEHTER"  >  AND  t  Xm  i  r.  +3 1  «p»  J*Q 
LABEL  USING  "K"  :  Xm  i  n+St*p4.T 
NEXT  J 

IF  Ai=« "RIGHT"  THEM  Rt-axes 

LORG  7 

SETGU 

MOVE  20,12 
SETUU 
WHERE  X,Y 
FI. 1-3=3 

IF  Ai<  > " CENTER "  THEN  Label 

MOVE  0 , Y 

SETGU 

WHERE  X , Y 

MOVE  X-2.Y 

SETUU 

WHERE  X,V 

GOTO  Label 

LORG  1 

SETGU 

MOVE  119,12 
SETUU 
WHERE  X , Y 
F 1  ag=  1 

LABEL  USING  "K" jYmin 

Num_t  i  c  k  s  =  I N  T  (  (  Y  m  a..::  -  Y  m  i  n).-'Yst*p) 

IF  Vst  epurt  i  t  =  5  THEN  3tep5£ 

Num_1  abe  1  s=Num_t  i  .;k;  Dlv  5 
3t  *p=Ysr.  ep-»5  *" 

GOTO  Cont2 

Num__l  abe  1  s=Num__t  i  >:  k  s  DIV  2 

St  ep*Vst  ep-f  2 

FOR  J= 1  TO  Hum  1 abe  I  s 


THEN  H  e  x  t 
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2350 

SETUU 

2360 

M  0  V  E  X ,  V  +  S  t  e  p  •*  J 

2370 

IF  <Af  »"C£NTER"  >  AND  <Yr.nn  +  S 

2330 

LABEL  U  S  IMG  "  K  "  ;  Y  m  i  n + S  t  e  p  *■  J 

2390 

N  e  x  t  1  s 

NEXT  J 

2400 

IF  <F  1  4*3  =  0  >  AND  A  f  =  "  B  C  T  H  "  >  THEN 

2410 

SUBEND 

2420 

! 

2430 

SUB 

L  abe  1  <  A*  > 

2440 

! 

! 

2450 

DIM  Hot'  l  abel  *C301,Ver  label*! 30 3 

2460 

SETGIJ 

2470 

CSIZE  4,'.  6 

2430 

L0RG  6* 

2490 

MOVE  70,6 

2500 

Hor  label**"" 

2510 

INPUT  '•'}<'  ax  i  a  label"  ,  Hot*  label* 

2520 

LABEL  USING  "K" ; Hor  label* 

2530 

IF  A**" RIGHT"  THEM  Rtaxe* 

2540 

MOVE  10,55 

2550 

LORG  4 

2560 

GOTO  Label 

2570 

R  t  ax  e  s  s 

MOVE  129,55 

2530 

LORG  6 

2590  Labels  Vtr  label**"" 

26*00  INPUT  M/Y'  axis  l*btl",V«r 

2610  LOIR  0,1 

26*20  LABEL  USING  "K-jVer  labels 

2630  IF  A* <  > "BOTH"  THEN  SUBEXIT 

26*40  MOVE  129,35 

2650  LORG  6 

2660  LABEL  USING  "K"jVer  I abell 

2670  SUBEND 

2630  ! 


2690 

SUB 

Title 

2700 

j 

• 

2710 

DIM  Plot  t  i  1 1  -i 

2720 

SETGIJ 

2730 

LDIR  O 

2740 

CSI2E  4, .6 

2750 

LORG  4 

2760 

MOVE  70,93 

2770 

Plot  titled" 

2730 

INPUT  "First 

2790 

LABEL  USING  "1 

2300 

MOVE  70,90 

2310 

CSIZE  3, , 5 

2320 

Plot  title**" 

2330 

INPUT  "Second 

2340 

LABEL  USING  " 

2353 

SUBEND 

2360 

! 

2370 

SUB 

Int*o_ b  1  odk  (Lin 

2330 

! 

7390 

DIM  Id_info*< 

2900 

Plotter*305 

2910  Locats  INPUT  "Info  block  1  oc  at  i  on< UR ,  LR ,  UL ,  LL ,  NO  >  '* ,  Loc * 

2920  IF  CLoc*<  >"  NO"  )  AND  v  Loc  *<  >  "  UR  ”  >  AND  '-Loc  t:  "LR  "  '■  AND  '.'Loc  *<  >  "  UL 

AND  CLocSn >"LL" >  THEN  Local 
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2930 

IF  Lee i=  " UR "  THEM  Loc-1 

2940 

IF  Loc*=“LP"  THEM  Loc=2 

2950 

IF  Loc 1*" UL “  THEM  Loc-3 

2960 

IF  Loc  ■?- " LL “  THEM  Loc=4 

2970 

J  1  =  t  0 

2930 

IF  Loci®" NO"  THEM  Bur 

2990 

FOR  J-l  TO  10 

3000 

Id  in f o $ ( J >  = " " 

3010 

I MPU T  " M e t  i  n f  o  b lock  1  i  n e  “  ,  Id  i  n f  ■: 

3020 

IF  Id  i  ri  f  o  S  <  J  >  =  “  "  THEM  J  1  =  J 

3030 

IF  J1=J  THEM  B 4r 

•3040 

NEXT  J 

3050 

Bar  s 

Barcht *0 

3060 

DISP  "ONE  OF  5  PLOTS  CRM  BE  ERR  CHART" 

3070 

WRIT  lOOO 

3030 

DISP  "MUST  BE  INCLUDED  IN  LINE  COUNT" 

3090 

WRIT  lOOO 

3100 

INPUT  "DO  YOU  HAVE  R  ERR  CHART?", B* 

3110 

IF  B*C  1,  n<>"Y"  THEN  Cont 

3120 

INPUT  "WHICH  LINE  NUMBER  IS  I  T?  ",  Bare  ht 

3130 

IF  <Barcht<l>  OR  <  Barcht  >5  >  THEN  Bar 

3140 

Cont  j 

Id  i  n  P  o  i  <  J 1  >  =  " - " 

3150 

INPUT  "  N  o .  of  li  ft  to  b  *  p  l  o  1 1  e  d  "  ,  M  u  m  1  i  i 

3160 

Numl  i n*i* INTXNvm 1  i  nei> 

3170 

IF  Barcht >Numl i nes  THEM  Bar 

3130 

IF  (Numl i n* 3 >0 >  AMD  (Numl ineslo)  THEM  Li 

3190 

DISP  "  M  si;<  or  5  1  i  n  e  a  permitted" 

3200 

WRIT  5000 

3210 

GOTO  Cont 

3220 

Li ntyp : 

G03UB  Linetyp* 

3230 

IF  Loc i=" NO"  THEN  Sym 

3240 

FOR  J=1  TO  Numlinea 

3250 

DISP  "Line  ";Jj"  title" 

3260 

WRIT  2O0O 

3270 

INPUT  Id  1  nt'ol  (  J  t  +.J > 

3230 

Id  i  nt'oi  <Jl  +  J>-Id  i  nt'oB  <  Jl+J>  C  1 5  133 

3290 

NEXT  J 

3300 

Sym : 

Symbol i  =  " FALSE" 

3310 

INPUT  "Symbol s  at  data  points?",C$ 

3320 

IF  C J> C  1 ,  1 3  ■  " Y "  THEN  Symbo  U  =  "  TRUE" 

3330 

IF  Loci® "NO"  THEN  SUBEXIT 

3340 

J2  = J 1 +Num 1 i nei+2 

3330 

ON  Loc  GOSUB  Ur,Lr,lJl  ,L1 

3360 

CSIZE  2.5, .5 

3370 

LDIR  O 

3330 

FOR  J*1  TO  72-2 

3390 

LABEL  USING  "K";Id  info*<J> 

3400 

NEXT  J 

3410 

GOSUB  Smp 1 i ne 

3420 

UNCLIP 

3430 

SUBEXIT 

3440 

! 

3430 

Ur  s  ! 

SUBROUTINE  Ur 

3460 

CLIP  S3, 1 15, 33-J2+2. 5,33 

3470 

SETUU 

3430 

FRAME 

3490 

SETGU 

3300 

LORG  1 

3510 

XI =109 

8-28 


3520 

3530 

3540 

3550  ! 

3560  Lrs  ! 

3570 

3530 

3530 

3600 

3610 

3620 

3630 

3640 

3650 

3660  j 

3670  U 1 :  | 

36S0 

3630 

3700 

3710 

3720 

3730 

3740 

3750 

3760 

3770  | 

37S0  Lis  ! 

3730 

3300 

3310 

3820 

3330 

3  340 

3350 

3360 

3370 

3830  ! 

3330  Li  net  vpe 

3300  '  .. 

3810 

3820 

3830 

3840 

3850 

3860 

3870 

38S0 

3880 

4000 

4010  ! 

4020  Smpline: 

4030 

4040 

4050 

4060 

4070 

40S0 

4080 

4100 


Y 1 =73 . 75-7 1*2.5 
MOVE  33,7 3 
RETURN 

SUBROUTINE  Lr 

CLIP  33, 115,14,  1 4+72*2. 5 

SETUU 

frame 

SETGU 
LORG  1 
XI *103 

Y 1  =3 . 75  + <  72- J 1 ) *£ , 5 
MOVE  33, 3+72*2.5 
RETURN 

SUBROUTINE  U1 

CLIP  24,51, 33- J2*2 .5,83 

SETUU 

FRAME 

SETCU 

LORG  1 

XI  *45 

Y  1  *73.  75- J 1 *2. 5 
MOVE  25,73 
RETURN 

SUBROUTINE  LI 

CLIP  24,51, 14, 14+02*2.5 

SETUU 

FRAME 

SETGU 

LORG  1 

XI  *45 

Y1  *3. 75 +  <  72-7  1  *2 . 5 
MOVE  25,3+72+2.5 
RETURN 

s  !  SUBROUTINE  Linetyp* 

Lin*id<l>=i 
Lineid<2>*4 
L i ne i d<3> *6 
Li ne i d<  4) =3 
L  i  ne i d<5>  =3 

Lines  y  rn  S  <  t  '>  =» "  »  » 

L  i  nesymS( 2>  =  " o  “ 

L  i  ne3ymi < 3  >  =  "  +  " 

Li nesym* <  4)»" X" 

Lin*sym*<5>=" *" 

RETURN 

!  SUBROUTINE  3  m p 1 i n  e 
SETGU 

FOR  J  *  1  TO  N  u  nt  1  i  n  e  s 

IF  Symbo  1  f  =  '‘TFUE"  THEN  OUTPUT 
MOVE  X 1 , Y 1 

LINE  TV  P  E  L  i  n  e  i  d  •!  7  ■  ,  3 
IF  Li ne i d< J>=4  THEN  LINE  TYPE 
IF  Lin*id</:«*3  THEM  LINE  TYPE 
lr  SarchtC7  THEN  Di'iu 


P  1  r.  r,  ^  r 


4,1.5 
3,  1 


3 ft "  L  i  n 
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4110 

LORG  2 

4  i  20 

LINE  TYPE  1 

4130 

LABEL  USING  " K " ; " B A R " 

4140 

GOTO  Incr* 

4150  Dr  aw : 

DRAW  XI +5, VI 

4160  Incr: 

VI  =» VI  -2. 5 

4170 

NEXT  J 

4130 

OUTPUT  Plotter; "SM" 

4190 

RETURN 

4200 

SUBEND 

4210 

! 

4220 

SUB 

D  at  ae  n  t  r  y  <  L  i  n  e  i  d  >'  * ) ,  N  u m  1  i  n  e  * ,  S  y  m  b o  1  i ,  L 1  n  e  *  y  rri  $  <  * > 

4230 

! 

4240 

C  0  M  X  Hi  i  n ,  X  m  ax  ,  Y  m  i  n ,  Y  m  ax 

4250 

P 1 ot t er*305 

4260 

SCALE  Xm  i  n ,  X  m  ax ,  Y  rn  i  n ,  Y  rn  ax. 

4270 

SETUU 

4230 

C3IZE  3,. 5 

4290 

OUTPUT  Plotter; "SM" 

4300 

FOR  Jal  fO  Nufn  1  inea 

4310 

D ISP  "EH, 'ER  VALUES  FOR  LINE";; 

4320 

WAIT  3000  " 

4330 

IF  Barcht  < >J  THEN  Enter 

4340 

CALL  Barchart 

4350 

GOTO  Cent 

4360 

Enter  : 

INPUT  "ENTER  lit  POINT  <X,Y>",X,Y 

4370 

IF  Symbol i  =  " TRUE"  THEN  OUTPUT  Plot  ter ; "SM 

4330 

MOVE  X , Y 

4390 

LINE  TYPE  Line  id <Jj, 3 

4400 

IF  Line: d< J>»4  THEN  LINE  TYPE  4,1.5 

4410 

IF  Li nei d<J>*3  THEM  LINE  TYPE  3,1 

4420 

Repe  at ! 

INPUT  "Next  point  <X, Y; <  -9999  ENDS  LINE) " 

4430 

IF  X< -9993  THEN  Cent 

4440 

DRAW  X , Y 

4450 

GOTO  Repeat 

4460 

Cent  s 

NEXT  J 

4470 

OUTPUT  Plotter; "SM" 

4430 

SUBEND 

4490 

! 

4500 

SUB 

Datat'i  1  e  <  L  i  ne  i  d  <  *>  ,  Hum  1  i  nei  ,  Swmbo  1  S ,  L  i  ne  *  ym*  ^  *  > 

4510 

\ 

4520 

COM  X  m  i  n  ,  X  in  ax ,  Y  min,  Y  m  ax 

4530 

SCALE  X  m i n , X m  ax , Y  m i n , Y m  ax 

4540 

P 1 ot  t  er=305 

4550 

MASS  STORAGE  IS  " s  H 7 " 

4560 

SETUU 

4570 

CSI2E  3,  .  5 

4530 

!  PROGRAM  OPENS  DATA  FILE  " PLTDAT "  FOR  DATA 

4590 

!  ENTRY.  THIS  MUST  EE  ON  UNIT  SPECIFIED 

4600 

!  BY  A  MASS  STORAGE  IS  STATEMENT. 

4610 

!  IT  MUST  NOT  BE  A  PROTECTED  FILE 

4620 

!  DATA  IN  FILE  MUST  BE  ORGANIZED 

4630 

!  AS  FOLLOWS: 

4640 

!  No  pta  -  VALUE  GREATER  THAN  1 

4650 

!  X,Y  PAIRS  OF  No  pta  DATA  POINTS 

4660 

!  BEGINNING  WITH  FIRST  CURVE 

4670 

!  SUBSEQUENT  CURVE  DATA  MUST  BEGIN  WITH 

46S0 

!  A  NEW  No  pta  VALUE  FOR  THE  CURVE 

4690 

!  DATA  POINTS  WILL  BE  PLOTTED  IN  THE  ORDER 

S  ar  c  ht ) 


;  L  1  ne aym*  (  J  ) 


B-30 


4703 
4710 
4720 
4730 
4740 
4750 
47  o0 

4770  Corn  : 

4730 

4730 

4300 

4310 

4320  Conti! 


4830 

4340 

4350 

4360 

4370  Corn 2 


READ  SO  THEY  SHOULD  BE  IN 
ORDER  OF  INCREASING  X  VALUES. 

ASSIGN  41  TO  "PLTDAT" , Return 

IF  R?t ut'r'i=y  THEM  Corn 

DI3P  "FILE  HOT  FOUND  OR  PROTECTED" 

STOP 

FOR  J=1  TO  Nuro lines 

LINE  TYPE  Lin*id<J>,3 
IF  Lineid<J>-4  THEN  LIME  TYPE  4,1*5 
IF  Lineid<J>=3  THEN  LINE  TYPE  3,1 

IF  Symbol *  =  " TRUE"  THEN  OUTPUT  PI  otter; "SH" ; Li nesymi < J > 
READ  41; No  pts 


4830 

4330 

4800 

4310 

4320 

4330 

4340 

4350  S 

4860 

4370  S 

4330 
4880 
5OO0 

5010  R  *  d  o  s 


IF  No_pts> 1  THEM  i 
DISP  "WRONG  NUMBE 
WAIT  100O0 
STOP 

2s  READ  4 1 ; X , V 

MOVE  X , Y 

FOR  K-2  TO  Ho  pts 
READ  41jX,Y 
DRAW  X , Y 
NEXT  K 
NEXT  J 

OUTPUT  Plot  t  "SH" 
SUBEND 


pts>l  THEN  Corn. 2 

"WRONG  NUMBER  OF  POINTS,  LlNE"jJ 
1  0  0  0  0 


SUB  Labe 


5020 

5030 

5040 

5350 

5O60 

5070 

5030 

5O30 

5100 

5110 

5120 

5130 

5140  SI 

5150 

5160  SI 

5170 

5180 

5130 

5200 

5210 

5220 

5230  Redo: 

5240 

5250 

5260 

5270 

5230  Vent : 


DIM  Label  * C 40 ] 

LINE  TYPE  1 

:  DISP  "MOVE  PEN  TO  START  OF  LABEL, ENTER" 

DIGITIZE  X , V 

INPUT  "ENTER  LABEL  DIRECTION  <  DEGREES Dir 
DEG 

LD  IR  Dir 

INPUT  "CHARACTER  SIZE  MULTIPLIER" , Si z* 

C3IZE  2.5431a*, .5 
LORG  1 

INPUT  "LABEL" , Label i 
MOVE  X , V 

LABEL  USING  "K" ; Label t 

INPUT  "DO  YOU  HAVE  ANOTHER  LABEL?", B« 

IF  B $ C 1 , 1 3 * " Y “  THEN  Redo 
SUBEND 


SUB  Barchart 


COM  Xmi  n ,  Xm  ax , Ym i n , Yraax 
SCALE  Xrn  i  n ,  Xwax ,  Yrn  i  n  ,  Yroax 
SETIJU 

LINE  TYPE  1 
OUTPUT  305; " 3 M " 

INPUT  "<H0R.>  OR  <  VER  >  BARS?",  Bari 

IF  <  Bar  >  "HOR  “  >  AND  t.  Bar  JO  "  VER  "  >  THEN  Redo 

INPUT  "WIDTH  OF  BARS", Width 

Of  f set  =W i dthx2 

IF  Bar i-" HOR "  THEN  Hon; 

DISP  "ENTER  Center  X,  Bar  He  ism" 
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5290 

WAIT  3000 

5300 

Next : 

INPUT  “  X , Y  < 

-X  ENDS  BAR  PLOT) 

5310 

IF  X<0  THEN 

SUE  EX  IT 

5320 

CLIP  X-0 ft’is 

t  ,  Xi-0  ('  t' Si  t.  ,  Yfn  i  n ,  Y 

5330 

FRAME 

5340 

UNCLIP 

5350 

GOTO  Next 

5360 

Hor i z : 

DISP  "ENTER 

Sir'  Length,  Cent* 

5370 

WHIT  3000 

5330 

Next  1 : 

INPUT  " X , Y  < 

-X  ENDS  EAR  PLOT) 

5390 

IF  }«0  THEN 

SUBEXIT 

5400 

CLIP  Xfr, i  n ,  X  , 

Y  -  0  f  f  set,  V  +  0 1  f  s  *  t 

5410 

FRAME 

5420 

UNCLIP 

5430 

GOTO  Mextl 

5440 

SUBEND 

COMMENTS  ON  PROGRAM  "WAVANL" 


This  program  is  used  to  plot  curves  of  wave  and  ship  motion.  It  takes 
its  input  from  the  5420A  spectrum  analyzer  and  outputs  to  the  9872B  plotter. 

To  work  properly  the  spectrum  analyzer  should  be  set  up  to  look  at  data  from 
0-32  Hz  and  the  data  tape  should  be  run  at  16  times  normal  speed.  The  data 
will  be  converted  by  the  program  to  the  correct  range  of  0-2  Hz.  Using  this 
speed-up  greatly  reduces  the  time  to  analyze  the  data  and  causes  no  loss. of 
accuracy. 

The  program  expects  two  spectra  to  be  entered.  The  first  must  be  the 
wave  spectrum  if  RAO's  are  required.  The  second  spectrum  must  be  a  ship 
motion  corresponding  to  the  wave  spectrum.  After  RUN  is  pushed  the  program 
will  wait  for  the  spectra  to  be  input  from  the  analyzer.  The  data  must  be 
sent  in  ASCII  format  using  "501  SAVE"  on  the  analyzer.  The  analyzer  must  be 
set  to  addressable  only. 

Program  lines  300  to  380  read  the  data  header.  Lines  390  to  410  read  the 
actual  data  points.  The  next  set  of  lines  correct  the  wave  data  to  frequency 
of  encounter.  Also  chosen  is  the  maximum  y-value  for  the  plot.  This  is 
chosen  to  be  the  maximum  y-value  following  the  first  valley  in  the  spectrum 
occurring  after  .05  Hz.  This  selection  criteria  will  ignore  the  initial  DC 
spike  of  the  spectrum  for  scaling  purposes. 

Note  that  only  the  data  for  the  first  half  of  the  spectrum  is  processed. 
All  the  useful  data  occurs  between  0  and  1  Hz.  Also  the  frequency  range  of 
the  wave  buoy  only  extends  up  to  0.8  Hz. 

The  motion  data  is  processed  in  lines  710  to  880.  Motion  data  is  already 
scaled  to  frequency  of  encounter  so  this  data  needs  only  to  be  corrected  for 
tape  speed.  Two  spectra  are  computed.  The  first  is  the  input  spectrum  from 
the  analyzer.  The  second  is  the  spectrum  obtainea  by  integrating  the  input 
spectrum  twice.  This  second  spectrum  will  be  plotted  if  heave  motion  is 
desired  since  the  input  spectrum  is  heave  acceleration.  These  two  spectra 
have  ordinate  arrays  of  Y(2,I)  and  Y( 4 , 1 )  respectively.  Scaling  values  are 
also  computed  in  these  lines. 

The  response  amplitude  operator's  RAO's  for  these  motions  are  calculated 
in  lines  890  to  1130.  Again,  two  RAO's  are  computed,  one  for  the  input  motion 
and  one  for  the  integrated  input  motion.  These  are  stored  in  arrays  Y ( 3, 1 ) 
and  Y ( 5 , I )  respectively .  In  order  to  calculate  the  RAO's  an  interpolation 
between  data  points  is  required-  This  is  due  to  the  shift  of  frequency  which 
occurs  when  the  wave  data  is  converted  to  frequency  of  encounter. 

The  remainder  of  the  program  deals  with  plotting  the  five  spectra 
developed.  Sub-program  "Grid"  draws  the  plotting  grid  with  the  appropriate 
labels  and  title  lines.  Only  roll,  pitch  and  heave  motions  are  implemented 
together  with  their  RAO's.  Wave  motion  can  also  be  plotted.  Sub-program 
"Plotdata"  plots  the  data  on  the  grid.  Line  1320  allows  the  operator  to 
choose  which  curve  will  be  plotted.  The  program  will  loop  to  plot  as  many 
data  curves  as  desired.  Once  all  data  has  been  plotted  the  program  will  again 
enter  a  waiting  state  so  that  new  data  can  be  entered  from  the  analyzer. 


Lines  24uO  to  2500  show  a  typical  function  processing  routine,  in  this 
case  roll.  Index  is  a  parameter  which  determines  wnich  of  the  five  spectra 
will  De  plotted.  An  Index=1  indicates  wave  spectrum,  2  -  the  motion  spectrum, 
3  -  the  :,nj  spectrum,  4  -  the  integrated  motion  spectrum,  and  5  -  the  RAO 
spectrum  for  the  integrated  motion.  Subroutine  "Size"  sets  the  Y  dimension  of 
the  plot.  The  SCAlF  statement  sets  the  limits  of  the  plot  to  0-1  Hz,  0-Maxy 
where  Maxy  is  chosen  in  "Size".  M-.es  are  then  drawn,  the  tick  marks  labeled 
"nd  the  axes  are  labeled.  A  title  and  information  lines  are  then  added  to  the 
ot. 


The  data  is  plotted  in  lines  1330  to  1620.  These  statements  also  print 
the  value*  nf  peaks  and  valleys  in  the  spectrum.  Finally,  sub-program 
"Power"  i«  called  to  integrate  the  area  under  the  spectrum  for  all  except 
RAO’s,  .alues  for  frequencies  less  than  .03  Hz  are  not  integrated. 
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v,i 


i  BEND 


3  U  5-  E : : !  T 

M  a.  -  '  =  i  f,i  a  '  4  ' 

I  f'l '  j  •=■  =4 

GOG  US  I  Zi 

'5  C  A  L  £  '0,1. 0  ,  M  i  ■  • 

*:$£':•  •  1  .  i '  >  s 

f't  a;f:<=  1 

CALL  L  it"-  I  i  =  .  M  a..  ■  >  t  •:  r  ^ 

CALL  L  ab-i  1  _ i  >•;  “HEAVE  "  .• 

'-  All  t  i  f.  l  •=■  •  Bo 1 1  i  fi 

C  ALL  I  ft  t'  o  1  (.'■  i  $  ,J  l  ■ 

SUEEKIT 

f't  a.iy  a  Y  fn  a,.. '!  5  .■ 

I  fid*  ••:  =5 
GO'JUB  ':i=* 

30' ALE  0  .  1 , 0  .  M  n  ;■ 
a;-:e3  .  t  ,  3 1.  4 ij 

t'li.f.s  l 

call  L  ab-s  1  _•  1 v  :  ■  M  a  ,  i  •  ■ ,  r  j 

'-ALL  L  ab  1 _ a.  •:  i  1  “  H  F-  A  O'  “  1 

OALL  T  i  r  U~  &,;,r  l  ,  fl  \ 

CALL  l  fi  f  ij ';•  •;  i  i j  i  i 


Mil  If,;. 


32  ro 

'JO'S  Lab";  t  f  t  c  L  i  •  ri 

a. 

.Mi  M  , 

3230 

'JETGU 

3  2  3  0 

UMOLIP 

3  300 

MOVE  14,10.5 

33  10 

■JETUOi 

3320 

where 

3  3  3  0 

0  3  I  EF  .  «; 

3  34  0 

LORG  4 

33  50 

•  L  D  I  R  0 

3  330 

LABEL  O'!  IMG 

"  M  “ 

:  ’  0  “ 

3  3  ro 

M',ifn_f  1 .;  |  i  s  [  f  1 

r  ■  m 

a  -  1  O' 

3  3  30 

I  F  Mum  r  1 V  i 

20 

r  m  E  •  1 

3  33  0 

FOR  J  a  1 

TO 

Mu. 'H  r 

3  4  0  0 

MO 

VE 

■:  -  /  To 

34  10 

LABEL 

U'J  IMG 

3420 

NEXT  J 

34  30 

EL3E 

34  40 

FOR  ,f  a  l 

TO 

Mm, it  f 

34*0 
?  *  1 

MO 

/  £ 

> ;  To 

!r  !  MOD  1 0  *  0  Trie*, 
me:,:  ; 


END  If 
lopc  r 
3  S  “  G  'j 

MOVE  12,14 
■55TUU 

WHERE  : ,  V 
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3  5  •+  0 

LABEL  UitMG  " 

K  "  ;  '•  O  " 

3530 

Hum  ».  i  •:  1  i  : 

=  I ;  l  T 

'Mi."  i  r  4 

3  5  6  0 

I  F  U  r'l  1  r  =  3 

The 

H  i  '  4  f-'  5 

3570 

Hum  I  iu‘  ~  1 

i  -Mu  Hi  ?  i  ■:  i  =  0 . ' 

3530 

if  4p  =  if  ip 

-  3 

3530 

G  0  T  0  'I  fi  ’ 

3300 

'/  3  •  H  U  fit  I  aC'i  I 

_ r  i  ;  j  D  I ' 

3  3  t  0 

t.  fj  s  f  •:  p 

-2 

3  3  3  0  0  >5  rl ' 

:  IF  i 

0  0  1 

THEM 

3  6  3  0 

FOR 

J=1 

TO  Hum  !  it- 

364  0 

MOV 

'E  X,V*Tr-;.p 

3630 

LhE’EL  US  IMG  " 

3660 

next 

J 

3  6  7  0* 

£LiE 

3630 

DEG 

3690 

L  0  R  G 

4 

3700 

CilZ 

£  3, 

CT 

3710 

L  D  I P 

9  0 

3  720 

FOR 

J=  1 

TO  Hufi,_l  it- 

3  7  3  0 

f't  0  \ 

-'£  x ,  v  fi*  •=  p 

3  i  4  0 

LABEL  UilHG  “ 

3750 

NEXT 

J 

3  760 

END  IF 

3  770 

iUEEMD 

3  7  :J  0 
■3  790 
3  SCO 
33  10 
3820 


33  30 

3  U  3  L  it-  <i  1  a.  •  -i  j  1  A  f 

3340 

PI  r.  r  S  0  5 

3350 

3ETCU 

3360 

OUTPUT  PI  ir j "i I .  13 

33  70 

LDIR  0 

3330 

C3IZE  3 

3390 

L0PC  4 

3900 

MOVE  63,7 

3910 

LABEL  Ui  IMG  "i."  :  'F i 

3920 

MOVE  3.33 

3930 

CilZE  6.. 5 

394  0 

OUTPUT  Plffi"DIO.l 

3950 

IF  A  r-:.  '  "ROLL"  THEM 

3960 

OUTPUT  P 1 ? r : "LB2i" 

3  9  70 

OUTPUT  P  !  r  ,■  ;  "-.j::  9  P  , 

9,2.  13" 

3  930 

OUTPUT  P  1  t.  r‘  i  "  L 3  '  t  * 

3990 

0  U  T  P  U  T  P  1  r  r  i  "  i  j  C  -  9  9 

4000 

OUTPUT  PI  r.f  •  "LB-i-s 

4010 

iETGU 

0  ju  0 

MOVE  6  3.3 

4030 

L  0  R  G  6 

4  040 

LDIR  0 

-030 

0  J  I  7  E  4  ,  .  6 

40  60 

LABEL  UilnG  "►  '  : " ►* 

■*  'O  t  0 

9U3E.V  I  r 

4030 

r ■  i  :  IF  fUX  ■' w A TrEM 

4  090 

OUTPUT  Pin-  -.  "  L  B  29  ' 

-  1  0  0 

OuTF  V  T  s  :  ,  .  -  u:;  -  i •: 

1  -  ♦  ~  < 

•  »  •  »  *  « 

-  »  •  «  *  /|  ♦  •• 

•  1  «  »  M>  •  V  9  « 

B 
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4  2  1  0 

2  ETC !  J 

2  0 

MOVE  i?.: 

:o 

L  0  F  0  2 

4  2  4  0 

LDIP  0 

A  £  5 ;1 

02 I  IE  4,. 2 

4  £  £  0 

l .4 E- e l  oi 

4  £  7  0 

20 be: :  I  t 

4  220  M. 

:■  t  pf  aO  ;  IF  P-r.  "hE.-'i" 

4  of  0 

OUTPUT  P  If.-; 

4  700 

OUTPUT  riff; 

4  7  1,0 

OUTPUT  Plr.rj 

4  720 

OUTPUT  Pltc; 

4  720 

OUTPUT  PI  t 

4  740 

2  ETC  U 

4  7  5  0 

MOVE  2  3,2 

4  7  o  0 

L  0  P  G  2 

4770 

LDIP  0 

4  720 

CitZE  4,. 2 

4  7  3  0 

L2EEL  UilMG 

4200 

2UEEM I T 

4210  M 

0 1  h  € ;  OUTPUT  Pit,-; 

4220 

OUTPUT  Pit.,-, 

30 

OUTPUT  PI',-; 

t.-i.- 

l ,  -  1  .  -  l  .  Z  ,  0  ,  1 " 

4  2  4  0 

OUTPUT  Pit,  • 

4250 

OUTPUT  r  1  t  r  j 

1  .  -  l  .  - 

1  ,  -  1  ,  -  l  ,  Z ,  0  .  1  “ 

4220 

OUTPUT  Plt.fi 

42  70 

OUTPUT  PIr.f; 

4220 

2ETGU 

4220 

MOVE  22.3 

4200 

LOPG  2 

4210 

LDIP  0 

4220 

C2IZE  4,  .  2 

4  2  3  0 

L.4SEL  0  3  IMG 

4?  4  0 

2 U SEND 

4250  ! 

4  220  ! 

i 

4  220  ! 

4  220  ! 

5000 

SUS  T  i  t  1  4  Itl  T£GS> 

5  0  0 

0  I M  Plot  t  i 

5020 

PRINTER  Ti 

5  0  2  0 

PRINT  Ft4GE 

5040 

SETCU 

5050 

LDIP  0 

5020 

C2EZE  4,. 2 

5070 

LOPG  4 

5  020 

MOVE  23.23 

5020 

P  1  0  t  r.  1  r.  1  X 

5  100 

L33EL  UiiNG 

5  110 

PRINT  TPS' Z 

5  110 

MOVE  23.30 

5  13  0 

0  3  I  Z  S  3  ,  .  2 

5  14.1 

?  1  •?  r  t  i  ’  1  {  j 

5  1 5  0 

I  HP U  T  11  0 2  ~ S 

5120 

r  1  -j  r 

5  170 

1.4 S  E-  i.  2  I  itC 

"LBZi" 

"uO -33 ,  0  .5.33,  3 . 0  .  -  3  .  -  3  ,  2.0  .  23  .  -  Z  ,  4, 33  ,  1 , 0  " 

F-.'' 

‘  UC  -■?  ?  .  Z .  2  .  3  3  ,  -  Z , 0  .  Z  ,  4 .  0  ,  Z  .  -  1  .  1  .  -  1  ,  -  1  " 

"  L  t  -  =  •=■:  - 


1  .  1  ,  1 , 0 , 
'..1,1.0, 


DOriiCO  'll':  Si-l1" 
:•  r  '  I  t  I  4  S 
‘  !  -i  I  .  .  •  N'  1  • 
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5  1  5  0 

5  l '?  0 

5  2  0  0 

SELEC 
C  A  SE 

T  Cod-: 
l 

p? :  in 

TAB-  2  0  ■ 

.  "Pv 1  : 

r-  .  - 

:  f  r'  '.1  fn 

5  2  l  0 

52  2  0 

C  A  E 

Pr'.h' 

7  A  3:  ■  2  0 

.  a". 

r;  ,  .  ,  .  -  .  ,  *1 

*  ■■  .ifn 

5  2  30 

5  240 

C  A  S  £ 

P?  Irir 

-  ji  -  •  * 

£  i  1 

r-  ^  ^  ^ 

5  2  50 

52  c'  0 

C  A  3  £ 

P  P  [NT 

T  A  ■' 1  1 

.  “  P  i  •  ■: 

r'.  £.•'!•:  f  j  • 

i.ir.i " 

5270 

523  0 

CASE 

r‘F  l  N  T 

TAB1.  1 

••  C-  t  • 

ii  P?i()jli:i 

Ai  rn  fO  1  1  ■  iJd 

5230 

5  300 

CASE 

PRINT 

TAB',  L 3 

.  "  H  a- 

4  E  n  :•  g  ■  ■  Sp 

ri  •:  f.  I.lfii  " 

5310 

3.320 

CASE 

PRINT 

TAB'  I  3 

1  r ::pMn-- 

A  fii  fO  1  1  *  1.1  d 

5, 350  END  SELECT 

5540  PRINT  TAB-' 2'3v  .  I  Ot  »  i  t  i  ■=  r 

5530  SUBENB 

53  iO  1 

55  70  ! 

5300  1  t, ,  ,  -  ,  -  * . *  - -► . 

5  330  ! 

5  400  1 


5  4  l  0 

t.l  B 

I  n  t  o  i,  3  > 

5420 

[I  I  M  [i  a 

?  ire  20  ] 

3«i  30 

S  ETC  U 

54  40 

LB  IP.  0 

5450 

CS  I  2E 

c 

•*  *  *  * 

34«i0 

L0PG  1 

5  4  70 

MOVE  7 

2  ,  !•:  L 

5430 

INPUT 

“  P u ft  no  .  "  ,  0  if  a-r 

54'?  0 

LABEL 

USING  Pi.i(i|Dm  if 

5  500 

R  u  r'i : 

IMAGE 

"Pun  No.  ",3A 

55  10 

PRINT 

L IN-  l  ■ , "  Pun  No .  " ; 0  it iJ i 

5  320 

INPUT 

"SEAS" , 0  if af 

5  5  30 

LABEL 

USING  "  2  0  A  "  i  D  a  f.  if 

5  5  40 

PRINT 

",  Sf."i4d  "iSi",  :•  E  A  S  -  "  i  l1  a  f  i  J  ,  L  I  N  '  t 

3  5  30 

PRINT 

"  FP E0UENC  OF  ErlGOUnfEP 

3530 

LABEL 

USING  S p  4  4  d ; •> 

5  5  70 

S  ,0  4  i  d  ! 

IMAGE 

"Spu-l  " ,  0  D  .  0  ,  "  Hi" 

5500 

'  INPUT 

"CAL  I  BFAT  ION"  .  D  if  aT 

5  530 

IF  D*t 

ija"0"  then  :ube:;i  r 

530  0 

LABEL 

US  IMG  Oil  i  Da  f  a  s 

3c  10 

C  it  : 

I  MAGE 

"Oil  i  frr  if  i  on  ",  "A 

5c 20  SUBEND 

5o30  1 
3©40  ' 

3  ©  3  0  * 

3©*©0  1 

3c»ro  ! 


3  ©SO 

SUB  Pow4i 

'*  '  N-.lfiipO  i 

f  i  f  i,  1 1 

'  l  T  EOE  F'  I  no  4  ' 

5  c  SO 

COM 

Y  i.  5 . 25  7 

1  •  •  i  4. 

«  i»  1 

3  7  0  0 

I  F 

'  I  n  d  4  3 

OP 

■  In .3  4  =  5  ■  TnEi,  Sue  £..  I  T 

3  7  l  0 

I  n  d 

t  3  I  ('id  4  . 

5  7  20 

r  c 

I  nd* 

THEN 

Cud  1=2 

3  7  3  0 

5  u  m  3  0 

3740 

FOP 

I  3  t  TO 

flu  ,1i  p  o 

Hi'  j 

3  7  3  0 

IF  X ■.  [ 

nd  1  ,  I 

’  .  .  0  3  THEN  N  ■»  .  f  i 

3  7:0 

'.i  ill  50  2 

•  —  '  '  i  * 

Ml  '  >  * 

*'^5I  *  3  ■  •  '  l'4  k  1  •  • 
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COMMENTS  ON  PROGRAM  "WAVHGT" 


This  program  was  used  to  measure  the  instantaneous  voltage  of  a  motion 
signal  and  then  determine  the  peak  voltage  of  the  wave  form.  The  heights 
between  successive  peaks  was  then  calculated  and  stored  in  the  array 
"Height".  This  array  is  then  sorted  beginning  with  the  highest  values.  The 
sorted  list  is  then  used  to  determine  the  average  1/3  and  1/10  highest  motions. 

Although  the  name  implies  that  this  program  deals  with  wave  heights,  it 
may  be  used  with  any  motion  provided  the.  correct  scale  factor  is  inserted  at 
line  130.  "Attn"  is  the  multiplying  factor  to  convert  voltage  to  the  motion 

units. 

The  DC  offset  in  line  110  may  have  to  be  changed  for  each  run  to  insure 
the  signal  is  reasonably  well  centered  about  zero  volts.  A  peak  will  be 
ignored  if  it  is  on  the  same  side  of  zero  volts  as  the  last  peak  or  if  the 
voltage  of  the  peak  is  within  +_  "Epsilon"  volts  of  zero. 

Tape  speed  should  be  3  to  16  times  the  original  speed  when  using  this 
program.  Lower  speeds  will  not  cause  a  problem  but  will  take  longer  to  run. 
Higher  speeds  will  reduce  the  accuracy  in  determining  the  peaks. 
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10 

20 

30 

40 

30 

63 

70 

30 

90 

100 

MO 

120 

130 

140 

150 

160 

170 

130 

190 

200 

210 

220 

230 

240 

250 

260 

270 

230 

290 

30O 

310 

320 

330 

340 

350 

360 

370 

330 

390 

400 

410 

420 

430 


PRINTER  13 
PROGRAM  NAME  " WAVHGT ' 


ANAL V3E3  NAVE  HEIGHT  AND  3HIP  MOTION  AMPLITUDE 
TO  DETERMINE  1-  3  AND  1/10  HIGHEST  MOTIONS 
USES  SPECIAL  FUNCTION  KEY  40  TO  STOP  INPUT  OF  DATA 
SHOULD  EE  RIJN  AT  3-16  TIMES  ORIGINAL  SPEED 

OPTION  EASE  1 

DIM  He i gh t < 900 ) ,  Ids C SO ] 

Offset*.  15  !  DC  offset  in  signal 

Ep  si  Ion*. 85  !  Band  width  about  O  in  which  peak  ignored 

'Attn=13  !  Tape  attn  units  conversion 

INPUT  "RIJN  ID",  Id* 

DISP  "STANDING  BY  TO  START" 

PAUSE 

0 1  d_pe  ak  a  I ndex*0 

ON  K E V  4 0  G 0 T 0  I n p u t  c o m piste 

DISP  "PUSH  KEY  40  TO  STOP  INPUT" 

OVERLAP 

OUTPUT  324; " D . 003S , N 1 S . EOS , R2 , T2,Ft" 

TRIGGER  S  2  4 

ENTER  324; Frew  reading 
TRIGGER  324 

ENTER  324; Current_re  ad i ng 
D  i  f  f  e  r  e  n  c  e  =  0 u r  r  e n  t  _r  e  ad  i.  n  g  -  p r  e  e  ad  i  n g 

Prev_re ad  i  ng=Curren  t_re  ad  i  ng 
Repeat • TRIllER  s  2  4 

ENTER  3  2  4 ;  C u r  r  ^  n  t  _r  >5  ad  i  n  g 

New_d  i  t't'erenc  e  sOur  ren  t_r  e  ad  i  ng-Pre 1  •* _ r-  e  ad  i  ng 

IF  3GN kNew—d  l  f  f  e  r  enc  «  \  >SGN •  D  i  f  f  er  e nc  e  ;  THEN  Peak 
Di ffer enc eaNe w_d i fference 
P  r  e  v_r  e  ad  i  n  g  =  C  u  r  r  e  n  t  _r  e  ad  i  n g 
GOTO"”Repe  at 

Pe  ak  :  New_pe  ak  =  Preu_re  ad  i  ng 

Di  f  f  erenc  e  =  New__d  i  t't'erenc  e 
Frew  re  ad i ng  =  C ur re n t _r e ad i ng 
IF  oTd_pe ak  «0  THEN  Firstpk 

IF  SGH (0  1  d_pe  ak -Of  fse  t  >  *$’GN •  Ne  w_pe  ak -Of  fse  t  ;>  THEN  Repeat 
IF  ABS<New_pe  ak -Offset  >  <Eps  i  I  on  THEN  Repeat 
I  n  d  e  h  »  I  n  d  e  x  + 1 

He  i  ght  I  nde-i « AES <  Ne  u__pe  ak  -0  1  d_pe  ak  ■  *At  t  n 
F  i  rst  pk  :  0  !  d_pe  ak  =Ne  e  ak 


440 

GOTO  i 

Repe  at 

450 

! 

460 

Input  completes  ! 

470 

DISP 

"KEY  40  PUSHED" 

430 

REOIM 

He  i  ght  C  I  nd*;<  ') 

490 

CALL 

Sort  < He  i  gh t  ^  -O  ,  l ,  I n d e .•< 

500 

CALL 

Tent h_  av g \ H e i g  h  t  <  * ? 

,  I  nde--.-' ,  Awg 

510 

CALL 

T  h  i  r  d  _  au  g  i  H  e  i  g  t-i  t  *  :> 

,  I  n  d  e .  c ,  A  v  g 

520 

PRINT 

P  A  G  E  7 1  d  S 

530 

PRINT 

LIN-;  1  .1  ,  "A',  erage  1 

1  O  h  i  g  h  e  s  t 

540 

PRINT 

"  A'-'er  ag e  1  ■  ’ 3  h  i  g  h  e  a  t  =  " ;  A  v 

550 

PRINT 

"A  to  t  al  o  r'  ■'  ;  I  nde 

■.  s"  height 

560 

PRINT 

"Measured  heights 

ar  e  ;  "  ,  L  I H  \ 

57Q 

PRINT 

H  e  i  g  h  t  v  •*  >  , 

530 

END 

590 

! 

600 

I 

" :  A' 
3  r  d 


"3 _ 1  0  r.  h 

we  as  ur ed "  ,  L  I M  *'  1  > 
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610 

SUB  Sort  •;  R <  4 )  ,  I  1  ,  J  1  > 

620 

N-Jl+l-Il 

630 

Logt  wo  =  HIT  •'  LGT  M 

640 

C  R  L  L  Q  s  *  r  t  R  t.  w  )  , 

650 

SUBEXIT 

660  ! 

670 

SUB  Q s  o r  t < R  < *  > , L o g ,  I  l 

630 

OPTION  BRSE  1 

690 

DIM  L  <  L  o  g ) , U  < L  o  g 

700 

M-l 

710 

1  =  11 

720 

J  =  J1 

730  St  a ifs t  1  : 
740  St -in  2  s 
750 
760 

770  II: 

730 

790 


IF  I >  = . J  THEM  Hex t  g r o u p 
K*t 

I  2= I  NT <  <J+I )/2J 
T=R<  1 2  > 

IF  fl<I>>»T  THEM  Lowmiddlel 
R<  I2>=R< I 
fl<I>«T 
T mfu  12  > 


300  T«fl<  12 > 

310  Lo wm i dd 1 e 1 : L  =  J 

320  12:  IF  R<JX  =  T  THEN  MiddWhiqh 

S30  fl(I2)=M(.J) 

340  R  {  J  )  ■  T 

350  T*RU2> 

330  IS:  IF  fl<I>>«T  THEM  NiddUhigh 

370  fl<I2>»fl<I> 

330  R<D=T 

S90  T  =  R  <  1 2  > 

900  Mi ddl ehi gh: L  =  L-l 


910  14: 

920 

930  Step up: 
940  15: 

950 

960 

970 

930 

990  Passed: 
1000 
1010 
1020 
1030 
1040 


1050  S  t  o  r  *  h  i  g  h  :  L»  <  M  >  =  K 


IF  fl(LXT  THEM  M  t  dd  1  •*  h  i  gh 
T1=R<1> 

K  =  K  +  l 

IF  fl < K  >  > T  THEM  St* pup 
IF  K>L  THEN  Passed 
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RECOMMENDATIONS  FOR  IMPROVING  TEST  PROCEDURES  AND  EQUIPMENT 


RECOMMENDATIONS  FOR  IMPROVING  TEST  PROCEDURES  AND  EQUIPMENT 


Four  areas  where  improvement  is  necessary  will  be  discussed  in  this 
appendix.  These  are  improvements  in  the  use  of  questionnaires,  improvements 
in  measuring  speed,  improvements  in  measuring  the  directional ity  of  wave 
spectra  and  improvements  in  the  method  of  measuring  shaft  torque.  The  last 
will  be  considered  first. 

Shaft  torque  and  hence  shaft  horsepower  (HP)  were  measured  during  the 
DORADO  tests  using  a  powerometer  developed  by  Ultra  Products  Systems.  This 
device  was  found  to  have  serious  drawbacks  although  in  concept  it  represents  a 
significant  improvement  over  husk  type  torsion  measuring  devices.  These 
require  slip  rings  or  telemetry  to  get  the  signal  off  the  rotating  shaft.  In 
the  powerometer  concept  two  prerecorded  tapes  are  wrapped  around  the  shaft  and 
a  carriage  with  tape  playback  heads  is  secured  to  ride  on  the  shaft  with  the 
playback  heads  over  the  tapes.  The  signal  from  each  tape  is  fed  to  the 
powerometer  for  processing. 

The  tapes  applied  to  the  shaft  each  have  a  sine  wave  recorded  on  them. 

The  sine  waves  of  the  two  tapes  are  identical  in  frequency.  The  tapes  are 
applied  15  inches  apart  on  the  shaft  and  as  the  shaft  twists  from  torque 
loading  the  relative  phase  angle  of  the  sine  waves  will  change.  It  is  this 
change  in  phase  angle  that  is  used  to  compute  the  torque.  The  frequency  of 
the  sine  wave  is  proportional  to  the  RPM  of  the  shaft.  These  two  values  are 
used  to  compute  HP. 

When  conditions  are  ideal  this  works  fine.  In  the  DORADO  tests  the  tape 
sets  supplied  by  Ultra  Products  Systems  were  not  of  identical  frequency.  The 
difference  in  frequency  was  less  than  one  percent  but  this  was  more  than 
sufficient  to  disrupt  the  measuring  process.  Without  an  identical  frequency 
the  phase  angle  is  different  for  each  cycle  of  the  sine  wave.  Also  the  tape 
must  be  handled-  very  delicately  to  prevent  stretching.  Even  a  minute  stretch 
will  change  the  phase  angle  locally. 

By  a  great  deal  of  post  processing  it  was  possible  to  extract  the  torque 
information.  However,  the  problems  of  tape  stretch  and  non-identical 
frequencies  must  be  solved  if  the  device  is  to  be  used  satisfactorily.  The 
best  solution  is  for  us  to  record  our  own  tapes.  This  will  require  purchase 
of  a  high  quality  frequency  generator  which  has  a  near  zero  drift  in 
frequency.  Also,  tape  material  should  be  investigated  to  see  if  there  is  a 
material  on  the  market  which  will  eliminate  the  stretching  problem. 

The  powerometer  is  capable  of  only  one  HP  calculation  in  15-20  seconds. 
This  may  not  satisfy  the  needs  of  the  test.  Near  instantaneous  torque  values 
can  be  obtained  using  a  dual  channel  spectrum  analyzer.  By  putting  the  signal 
from  each  playback  head  into  a  separate  channel  the  phase  angle  between  the 
signals  can  be  measured  directly.  More  accurate  values  of  torque  could  be 
obtained  by  recording  sine  waves  of  many  different  frequencies  on  each  tape. 
The  phase  angle  shift  at  each  frequency  can  be  determined  using  the  spectrum 
analyzer.  The  torques  determined  using  each  frequency  can  be  averaged  to 
improve  the  variance. 
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The  wave  directionality  problem  is  more  difficult  because  the  R&D  Center 
is  currently  using  a  state-of-the-art  approach.  A  waverider  buoy  is  used  to 
determine  a  point  spectrum  for  the  sea  waves.  This  spectrum  contains  no 
information  on  wave  direction.  The  ship  is  operated  on  different  headings  to 
the  sea  after  the  principal  wave  direction  is  determined  by  eye.  This  method 
of  determining  wave  direction  is  imprecise  at  best  and  is  impossible  if  there 
are  significant  waves  coming  from  multiple  directions  as  is  usually  the  case. 
The  resulting  ship  motions  are  not  reproducible  in  different  seaways  having 
the  same  spectrum  but  different  directional ity . 

A  different  method  for  measuring  wave  height  is  proposed  to  markedly 
improve  on  this  problem.  For  many  years  the  Navy  has  used  sensors  mounted  to 
the  bow  of  the  ship  to  measure  wave  height.  Single  sensors  are  used  and  only 
a  point  spectrum  is  obtained.  However,  with  a  sensor  on  the  vessel  the  wave 
measured  is  the  wave  actually  encountered  and  no  correction  need  be  made  for 
ship  speed  or  direction  to  the  waves.  Also,  any  spatial  change  in  the  wave 
energy  spectrum  will  no  longer  cause  a  problem  because  the  wave  energy  is 
measured  at  the  ship. 

Typical  sensors  used  include  radar  and  laser  altimeters  and  sonic  height 
sensors.  The  radar  altimeters  appear  to  be  best.  All  require  that  the  height 
be  corrected  for  ship  motion  which  introduces  a  new  source  of  errors. 

It  is  proposed  that  this  method  be  carried  one  step  further  to  obtain 
wave  directionality.  Two  height  sensors  can  be  used  spaced  a  fixed  distance 
apart.  The  height  signal  from  each  sensor  can  be  fed  into  a  separate  channel 
of  a  dual-channel  spectrum  analyzer.  This  analyzer  can  determine  the  cross 
power  spectrum  of  the  signals  rather  than  the  auto  power  spectrum  of  each 
signal  individually  as  is  now  done. 

The  usefulness  of  the  cross  power  spectrum  lies  in  the  fact  that  the 
spectrum  represents  the  apparent  wave  propagation  along  the  line  of  the  two 
sensors.  Figure  C-l  shows  how  an  array  of  five  sensors  could  be  arranged  to 
measure  the  spectrum  each  22-1/2  degrees  around  the  horizon.  The  sensors  are 
used  in  pairs  to  do  this.  By  choosing  the  pair  of  sensors  most  appropriate  to 
the  motion  being  measured,  the  primary  directional  spectrum  driving  that 
motion  can  be  determined.  For  example,  two  sensors  in  line  with  the 
longitudinal  axis  would  be  used  to  evaluate  pitch  response.  This  should 
significantly  improve  the  repeatabil ity  of  response  amplitude  operators  and 
permit  extension  to  other  sea  states.  At  the  very  least  the  directional 
spectrum  of  the  sea  could  be  determined  with  high  accuracy. 

The  array  of  sensors  would  be  mounted  to  the  vessel's  bow.  As  before, 
corrections  must  be  made  for  vessel  motion.  The  spectrum  analyzer  requires  an 
analog  input  signal.  Therefore,  the  outputs  of  the  sensor  package  must  be 
analog. 

This  appears  to  be  a  promising  approach  to  measuring  wave  spectra  but 
needs  to  be  developed  more  and  tested  under  field  conditions  before  being 
adopted.  T"  spacing  between  sensors  is  the  primary  variable  to  be  studied. 
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The  current  method  for  measuring  vessel  speed  involves  the  use  of 
Loran-C.  The  time  to  travel  between  two  Loran-C  positions  and  the  distance 
between  these  positions  provides  the  data  necessary  for  the  speed 
calculations.  This  has  proved  quite  accurate  and  precise  for  measuring 
average  speed  over  about  a  2-mile  course;  however,  no  information  is  available 
on  instantaneous  speed  or  side  slip  relative  to  the  water. 

Most  speed  sensors  commercially  available  require  installation  through 
the  hull.  This  is  unacceptable  for  most  ship  tests.  At  the  Sixth  Ship 
Control  Systems  Symposium  in  Ottawa,  Ontario,  Canada,  Samuel  Cheney  presented 
a  paper  entitled  "High  Speed  Velocity  Log,  A  Practical  Solution  for  Precise 
Speed  and  Sideslip  Measurement  for  Air  Cushion  Vehicles."  This  paper 
describes  a  Doppler  radar  approach  to  vessel  speed  measurement  developed  by 
the  Naval  Air  Development  Center.  The  sensor  described  appears  to  be  a 
significant  improvement  over  the  Loran-C  method  currently  used  and  does  not 
require  through-hull  mounting.  Side  slip  speed  is  also  available.  The  sensor 
mounts  on  the  bow  of  the  test  vessel  near  the  deck.  An  effort  should  be  made 
to  obtain  a  similar  sensor  package  for  AMV  testing  use.  The  one  disadvantage 
of  this  sensor  is  that  testing  must  be  done  when  winds  are  greater  than  5 
knots  or  seas  greater  than  6  inches.  The  sensor  will  not  work  in  flat  calm 
conditions. 

The  present  concept  for  using  questionnaires  to  obtain  information  during 
an  OPEVAL  has  some  serious  drawbacks.  These  were  emphasized  during  the  DORADO 
tests.  The  concept  of  using  questionnaires  requires  two  essential  elements. 
First  the  people  filling  out  the  questionnaires  must  have  spent  an  adequate 
amount  of  time  on  board  the  vessel  under  test  to  obtain  experience  in  all 
aspects  of  vessel  operation.  Second  the  people  must  have  familiarity  with 
other  Coast  Guard  cutters,  particularly  WPB's,  in  order  to  compare  the  test 
vessel  with  current  vessels. 

For  the  DORADO  tests  both  of  these  were  initially  being  met.  An 
experienced  WP8  crew  was  to  be  transferred  intact  to  the  DORADO  and  remain 
throughout  the  test  period.  In  practice  only  a  few  of  the  crew  were  on  the 
DORADO  for  an  extended  length  of  time.  Crew  replacements  in  general  had  no 
experience  with  WPB's.  As  a  result  the  value  of  the  questionnaires  suffered 
badly. 

It  is  recommended  that  in  future  OPEVAL' s  of  this  nature  strict 
guidelines  be  established  for  crewing  and  that  these  be  adhered  to.  An 
alternative  approach  would  be  to  establish  a  "panel  of  experts"  who  would  ride 
the  vessel  for  a  period  and  then  fill  out  the  questionnaires. 
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DESCRIPTION  OF  INCLINING  EXPERIMENT 


The  inclining  experiment  on  the  DORADO  was  performed  in  an  unconventional 
manner  and  hence  requires  some  explanation  of  the  procedures  used.  The 
conventional  method  used  to  measure  the  inclination  angle  is  to  suspend  a  long 
pendulum  near  a  transverse  batten  and  note  the  lateral  movement  along  this 
batten.  From  this  the  inclination  angle  can  be  easily  computed.  In  the  case 
of  the  DORADO,  as  with  most  small  Vessels,  there  was  no  place  from  which  a 
pendulum  could  be  secured  and  in  any  case  the  pendulum  would  have  been  exposed 
to  the  wind  which  would  have  added  considerably  to  the  error. 

During  the  DORADO  test  the  inclination  angle  was  measured  using  a 
theodolite  on  shore  and  targets  set  up  on  opposite  sides  of  the  vessel.  8y 
measuring  the  distance  from  the  theodolite  to  these  targets  and  the  vertical 
angle  from  the  theodolite  to  each  target,  the  change  in  heel  angle  between  two 
loading  conditions  can  be  computed.  The  heel  angle  was  induced  by  placing  two 
10,000-pound  weights  first  on  the  starboard  side  and  then  on  the  port  side. 

Knowing  the  vessel  displacement,  from  the  draft  marks,  the  inclining 
weight  used,  the  distance  it  was  moved,  and  the  heel  angle,  the  metacentric 
height,  GM,  can  be  computed. 

The  theodolite  used  to  measure  the  angles  had  a  single  vertical  reticle 
crossed  by  3  horizontal  lines.  The  upper  and  lower  line  were  equal  distance 
from  the  center  horizontal  line.  These  three  lines  allow  three  separate  angle 
measurements  to  be  made  which  can  be  averaged  for  greater  accuracy.  This 
permits  angle  measurements  down  to  1  second  of  arc.  Measurements  are  first 
taken  using  each  of  the  three  lines  with  the  theodolite  on  one  side  of 
vertical.  The  theodolite  is  then  rotated  through  a  vertical  angle  of  180 
degrees  and  the  three  measurements  are  repeated.  These  are  referred  to  as 
face  right  and  face  left  positions.  The  six  measurement  positions  are 
referred  to  as  UL-upper  left,  AL-average  left,  LL-lower  left,  UR-upper  right, 
AR-average  right,  and  LR-lower  right.  These  refer  to  the  reticle  line  used 
and  the  facing  of  the  theodolite. 

The  six  angles  above  were  measured  to  both  targets  in  each  of  the  two 
weight  locations,  port  and  starboard.  The  targets  themselves  were  tri plane 
reflector  arrays  mounted  on  tripods.  These  were  positioned  3 7 * - 1 . 5" 
apart  on  the  after  main  deck.  The  distance  from  the  theodolite  to  each  target 
was  measured  using  an  infrared  ranging  device  mounted  on  top  of  the 
theodolite.  This  ranging  device  could  measure  the  distance  down  to  hundredths 
of  a  foot.  These  distances  were  also  measured  for  each  weight  location.  This 
data  is  shown  in  Table  D-l. 

The  zenith  angle  refers  to  angles  measured  from  the  vertical  with  zero 
degrees  being  straight  up.  Letting  Z  be  the  zenith  angle  then: 

Z  =»  1/2  (360°  +  UL-LR)  =  1/2  (360°  +  AL-AR)  =  1/2(360°  +  LL-UR) 
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These  three  computations  of  zenith  angle  can  be  average  to  determine  the 
zenith  angle  to  use.  For  the  various  targets  and  weight  positions,  these  work 
out  to  be: 


Weight 

Target 

Z 

90-Z 

Port 

Port 

95°55'17" 

-5°55 ' 17" 

Port 

Stbd  . 

93°26'24" 

-3°2  6 ’ 24" 

Stbd 

Port 

93°04' 43" 

-3°04 1 43" 

Stbd 

Stbd 

95°09'23" 

-5°09 ' 23" 

The  distance  from  the  horizon  down  to  the  target  is  d.tan  (Z-90)  where  d  is 
the  distance  from  the  theodolite  to  the  target.  These  distances  will  be 
referred  to  as  P.,  port  target  weight  starboard,  Pp,  3p,  and  Ss.  The 
values  calculated  for  these  distances  are: 

PD  =  4.3229  ft  Ps  *  3.3749  ft 
Sp  =  3.6091  ft  =  3.9796  ft 

The  heel  angle,  H.A.,  can  be  calculated  using  the  formula: 

tan  (H.A.)  =  Ss-Sp  -  Pp  -  Ps 

D 

Where  D  is  the  distance  between  the  targets.  This  gives  a  value  of  H.A.  of 
2.034  degrees.  The  forward  weight  and  the  after  weight  were  each  moved  31 '0" 
from  port  to  starboard.  Displacement,  W,  of  the  SES  at  the  drafts  tested  was 
302,500  pounds.  The  metacentric  height  is  then: 

GM  =  w  x  d  =  20000  x  31  “  57.7!  ft 

W  tan  (H.“A. )  302500  tan  T2V0'34°7" 

However,  no  compensation  has  been  made  in  the  above  calculation  for  the  effect 
of  the  wind.  The  lateral  area  of  the  SES  was  calculated  to  be  1250  square 
feet  with  the  center  of  area  located  7.39  feet  above  the  water  line.  For  a 
15-knot  wind  the  side  force  on  this  area  will  be  approximately  1200  pounds 
while  the  heeling  moment  due  to  the  wind  is: 

1200  lbs  x  7.39  feet  =  8900  ft  lbs 

The  total  moment  must  include  double  this  effect  due  to  the  way  the  ship  was 
tested.  Therefore: 


GM  *  20000(31}  +  2(8900)  =  59.4  feet 

302500  tan  (2.034) 

The  amount  of  weight  which  can  be  lifted  5  feet  off  the  side  is  calculated  by: 

Weight  =  GM  *  W  *  tan  (H.A.) 

a 
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INCLINING  EXPERIMENT 


VESSEL  NAME  USCGC  DORADO 

DATE 

8/5/81 

TRIAL  NUMBER 

1 

2 

3 

4 

MAX  PORT 

MAX  PORT 

MAX  STBD 

MAX  STBD 

VERTICAL  ANGLES 

PORT  TAR 

STBD  TAR 

PORT  TAR 

STBD 

TAR 

UL 

96°  12'  18" 

93°  44'  38" 

93°  22'  08" 

95°  27' 

29" 

AL 

95°  55’  21" 

93°  27'  13" 

93°  04'  52" 

95°  09' 

43" 

LL 

95°  33’  03" 

93°  10'  10" 

92°  47'  37" 

94°  52' 

28" 

DIST  TO  PORT  TAR 

41.68 

62.75 

DIST  TO  STBD  TAR 

60.04 

44.10 

UR 

263°  47'  03" 

266°  17'  09" 

266°  38'  39 

"  264°  34' 

1  06" 

AR 

264°  04'  23" 

266°  34'  45" 

266°  55'  36 

"  264°  51 

'  03" 

LR 

264°  22'  35" 

266°  51'  44" 

267°  12'  02 

"  265°  03 

*  01" 

RANGE  ADO  SETTING: 

42 

AIR  TEMP:  84 

BARO  PRESSURE:  30.12 


Table  0-1 

INCLINING  EXPERIMENT  MEASUREMENTS 
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APPENDIX  E 

RUDDER  ANGLE  DERIVATION 


RUDDER  ANGLE  EQUATION  DERIVATION 


The  test  setup  was  "s  shown  in  Figure  E-l.  This  setup  was  changed 
slightly  between  the  tests  conducted  in  August  1981  and  those  conducted  in 
November  1981.  The  general  formula  for  rudder  angle  given  the  voltage  input 
wil1  be  computed  first  and  *hen  the  constants  for  the  two  test  periods  will  be 
calculated . 

String  length,  a,  is  proportional  to  the  voltage  output  across  the 
potentiometer.  This  is  the  voltage  measured  by  the  test  equipment  as  the 
indication  of  rudder  angle.  Distances  b  and  c  are  fixed  and  were  measured  on 
board  the  ship.  The  angle  A  corrected  to  the  reference  of  zero  rudder  angle 
is  the  desired  quantity.  Length  a  is  linearly  related  to  the  voltage  so: 

a  =  K]  V  +  Kg 

where  K]  and  Kg  are  constants 
V  is  measured  voltage 

The  following  trigcnometr ic  identity  is  of  use. 


cos  (1/2  A)  *  ys(s-a)  where  s  =  l/2(a+b+c) 

The  rudder  angle  is  equal  to  A  -  constant  angle.  Call  this  constant  angle 
K3. 


The  procedure  will  be  to  measure  a,  b,  and  c  at  a  known  rudder  angle  near 
zero.  From  this  the  value  of  K3  can  be  calculated  using: 

RA  =  2*arc  cos  /s(s-aT  -  K3 
V  be 


Since  rudder  angle  =  RA  *  A  -  K3 


The  rudder  is  then  moved  to  30°  left  rudder  and  the  voltage  measured. 
The  same  thing  is  done  for  30°  right  rudder.  These  two  rudder  angles  and 
voltages  are  used  to  calculate  constants  Ki  and  Kg.  8y  manipulating  the 
trigonometric  identity  the  following  formula  for  a  is  obtained: 


a 


A  =  RA  +  K3 

For  each  of  the  two  rudder  angles  a  can  be  computed.  Then  the  equations: 

ai  =  K  i  *  V  -j  +K  g 
ag  =  K-j*Vg+Kg 

can  be  solved  for  K  j  and  Kg.  Working  backwards,  for  any  value  of  voltage 
the  rudder  angle  is: 
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Table  E-l  lists  the  constant  values  computed  for  each  of  the  test  dates. 


TABLE  E-l 

August  1981  November  1981 

-4.237  inches/volt 
19.500  inches 
54.75  degrees 
14  inches 
24  inches 


Ki  -6.6003  inches/volt 

K2  19.973  inches 

K3  49.55  degrees 

b  13.75  inches 

c  24.75  inches 
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FIGURE  E-l 

RUDDER  ANGLE  TEST  ARRANGEMENT 
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